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INTRODUCTION 


Design Criteria of Cromemco 16K Extended BASIC 

Many different versions of BASIC are commercially 
available from computer manufacturers. These 
different versions vary greatly in computational 
precision, programming power, ease of programming, 
speed of execution, and amount of memory required 
for the BASIC program. There are a number of 
BASICs available which are similar in capability to 
the original BASIC developed at Dartmouth College. 
These BASICs typically require about 8K of memory. 
There are also a number of tiny BASICs available 
that require only 2K of memory but which have 
different or less capability than an 8K BASIC. For 
many of today's demanding applications, more 
features are required than were provided in the 
original Dartmouth BASIC. A BASIC that provides 
advanced features and capabilities is frequently 
called an Extended BASIC. The features included in 
Extended BASICS also vary widely among computer 
manufacturers, 


Cromemco 16K Extended BASIC (which was developed 
exclusively for Cromemco by ‘Shepardson 
Microsystems, Inc.) is designed to maximize 
computational precision, programming power, and 
speed of execution by fully utilizing the extensive 
158 instruction set of the Z-88 microprocessor. 


Cromemco's powerful Extended BASIC was specifically 
designed to meet the most demanding requirements of 
business firms (such as inventory and accounting 
programs) while providing the flexibility and speed 
necessary for real-time control applications in 
both industry and the home. A brief review of some 
of the features included in Cromemco 16K Extended 
BASIC follows. 


One major feature of Cromemco 16K Extended BASIC is 
rapid, 14-digit arithmetic using the powerful, 
binary-coded decimal (BCD) arithmetic instructions 
which are unique to the Z-8@ microprocessor. All 
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arithmetic operations are performed using the 16 
high-speed registers of the central processor for 
intermediate storage. The speed and precision 
obtained when performing BCD arithmetic cannot be 
obtained on 7-register microprocessors such as the 
8880. Many BASICS were designed for six or seven 
digit precision using computer-oriented binary 
arithmetic. It is possible to do calculations 


which are as accurate using binary arithmetic as 


they are using BCD arithmetic. However, many 
BASICs which use binary arithmetic have introduced 
highly visible errors when calculating dollar and 
cent conversions in business and financial 
programs. These conversion errors cannot occur in 
BASICs which utilize BCD arithmetic. In addition 
to arithmetic operations, all functions in Cromemco 
16K Extended BASIC are. computed to 14-digit 
accuracy. Many other BASICS that provide 14-digit 
accuracy do so at greatly reduced execution speeds 
and often without carrying full accuracy through 
all subroutines. 


Real-time control applications often require 
integer, 16-bit (4 1/2 digit) arithmetic. Cromemco 
16K Extended BASIC provides this capability along 
with direct memory, input/output, and machine-code 
subroutine access through BASIC instructions. 
There is also often a need in real-time control 
system applications to store large arrays of data. 
Cromemco 16K Extended BASIC offers the flexibility 
of allowing the user to manipulate, store, and 
retrieve six-digit floating point numbers. This 
abbreviated form of the highly efficient, 14-digit 
mathematics capability is also slightly faster in 
execution than the 14-digit format. 


Furthermore, in Cromemco 16K BASIC (unlike most 
microcomputer BASICS), constants used in program 
lines cause execution speeds as fast or faster than 
variable references. In addition, integer 
constants occupy no more room than variable 
references. 


Execution speed is maximized in 16K Extended BASIC 
by the utilization of a semi-compiling design. The 
semi-compiling design provides many of the 
important features of both a compiler and an 
interpreter. In other words, the properties of a 
compiler which provide high execution speed are 
combined with the interactive capabilities and 
programming ease provided through an interpreter. 
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For example, programs may be stopped during 
execution, examined, and modified. The computer 
may then be instructed to continue to run the 
program without affecting the proper exécution of 
the program. The ability to stop, examine, and 
modify programs can greatly reduce the time and 
cost associated with computer programming. This 
interactive capability is not available with 
optimized compilers. The semi-compiling operation 
of 16K Extended BASIC is performed after each 
program line is entered. Any syntax errors are 
detected at the time of entry rather than during 
execution. Consequently, the time required to 
enter and debug a program is reduced substantially. 


Some versions of BASIC have either rudimentary or 
no error message capability. With these versions, 
if a fatal error causes the program to crash or 
halt unexpectedly during execution, it is up to the 
user to reconstruct the failure within the program. 
Other versions will produce a numerical value after 
the program fails. This value must be interpreted 
from a list of error messages. Some more powerful 

BASIC programs will return an English-language 
Statement explaining the failure after the fact. 
Cromemco 16K Extended BASIC not only generates 
English-language error messages, but it also 
examines each statement as it is entered and prints 
error messages immediately. The value of such pre- 
checking, using the error messages, can be 
pronounced. This capability is extremely important 
when making corrections to real-time control 
systems where inadvertent errors in modifications 
can be costly. In general programming, the 
interactive aspect of the error messages is 
extremely convenient and can substantially reduce 
programming time and errors. 


Dynamic error trapping is provided in Cromemco 16K 
Extended BASIC for specialized routing of program 
control in response to BASIC generated error 
conditions. Using the error trapping feature, 
overflow and underflow arithmetic errors can be 
handled without operator assistance. The value of 
this feature in preparing programs that will be 
used by unskilled operators cannot be 
underestimated. For instance, should a disk 
read/write error occur, 16K Extended BASIC can be 
é programmed to type out a message such as: CALL MR. 
€ HIGGINS (415-@38-1234) IN THE ACCOUNTING DEPARTMENT 
thereby alerting skilled personnel who can correct 
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the problem. 


A TRACE feature is provided in Cromemco 16K BASIC 
to help determine the origin of errors which are 
difficult to find in a program being written. Line 
numbers are logged as they are executed with this 
feature. FOR loops are automatically indented as 
they are logged in the TRACE mode. 


Cromemco 16K Extended BASIC also has advanced 
floppy disk input/output capabilities. For 
example, both programs and data may be stored on a 
disk. Programs may be stored in internal machine 
(binary) or ASCII format. Numeric and ASCII string 
data may be stored on a disk using sequential or 
random access methods. The number of files which 
may be opened simultaneously is limited only by the 
amount of memory the user allocates for file 
purposes, and an unlimited number of files may be 
opened and closed during the course of a program. 
Chaining of program segments too large to fit in 
memory at one time can be performed with parameters 
passed through disk files or memory. File names 
can be string variables and can be changed 
dynamically (at runtime) by the BASIC program. 
BASIC programs can be written, modified, or run by 
other BASIC programs. Line numbers can be altered 
and two programs can be retrieved from the disk and 
concatenated into one program. The versatility 
provided through the interaction of the Cromemco 
Disk Operating System (CDOS) and the disk 
input/output capabilities of Cromemco 15K Extended 
BASIC is uncommon. 


Many BASICs have string handling capability. 
However, many of these limit the number of 
characters that can be stored in the string to a 
maximum of 255. In Cromemco 16K Extended BASIC, up 
to 32,767 characters or the available memory space 


are allowed -- whichever limit is smaller. 
Substrings are utilized to rapidly manipulate these 
strings. Again, the design of the language 


emphasizes speed, versatility, and accuracy. A 
special, high-speed, string-searching function is 
provided to increase throughput in string 
manipulation and sorting operations (such as are 
commonly found in mailing list processing 
programs). 


Program listings from 16K BASIC are print justified 
and are uniformly spaced for reading ease and 
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clarity of documentation. FOR loops are also 
automatically nested and indented by the listing 
function. In the semi-compiling operation, the 
only statements that are directly stored in memory 
at entry time are the REM comment statements (and 
even here spaces are compressed). All other 
statements are semi-compiled and stored in machine 
readable format. When listed, this machine 
readable format is reconverted into ASCII format 
and then printed. Thus all spacing and other 
variations are lost in the conversion process. 
This conversion process allows Cromemco 16K BASIC 
to efficiently store large programs by storing 
programs only once in semi-compiled format. In 
contrast, many other BASICs always maintain an 
uncompiled, one-to-one representation of what was 
typed in, along with any internal, execution 
related storage. Such BASICs require extra program 
Storage if blank spaces are typed inadvertently 
into the program text. Blank spaces can slow down 
program execution. Cromemco 16K Extended BASIC 
does not store, nor is it affected by, 
inadvertently typed blank spaces. Furthermore, 
these extra blank spaces are not listed in the 
program output. 


There are a number of features commonly found in 
most Extended BASICs that are included in Cromemco 
16K Extended BASIC. These features include multi- 
statement lines; one, two, and three dimensional 
arrays; 26 user-definable functions; advanced 
formatting capabilities with PRINT USING, TAB, 
SPACE, and SYS/SET functions; and direct machine 
language interaction with INP, OUT, PEEK, POKE, and 
USR instructions. Finally, Cromemco 16K Extended 
BASIC also has flexible INPUT and PRINT routines 
which are capable of supporting a wide range of 
terminals and line printers. 


This manual was designed for use both by users who 
have no prior experience with BASIC and by 
experienced programmers. Users with little or no 
prior experience are encouraged to read sections 
1.8 through 1.3 and then proceed to Chapter 7, 
Programming Examples. These examples are designed 
to introduce Cromemco 16K Extended BASIC to the 
novice programmer. Chapter 19 is a Glossary and 
may be consulted if the definition of a term is in 
question. 


Both the beginner and experienced programmer will 
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gain insight into BASIC's file structures and 
access methods by reading Chapter 15, Discussion of 
Data File I/0. 


The advanced user will want to refer to Chapters 
17, 18, and 21 (the Appendix) as well as to section 
1.4, A Technical Discussion. 


Computers and Computing Power 


A computer is a device which performs high-speed 
mathematical or logical calculations or which 
processes information derived from coded data in 
accordance with a predetermined program. This 
predetermined program is a set of instructions 
arranged in logical sequence which directs the 
computer to perform a desired operation. 


All computers are based on one fundamental concept 
-- the binary digit. The binary number system uses 
only the digits @ and 1. The binary digit concept 
is so useful .because it can be represented by any 
device which is capable of assuming one of two 
possible stable states (on and off). A computer, 
even in its most complex form, is simply a 
collection of logic gates which respond to the 
presence or absence of a voltage. The presence or 
absence of such voltages, called logic levels, 
makes it possible to represent binary conditions in 
a logic circuit. Typically, these logic levels are 
defined as @'s for off states and 1's for on 
states. 


Binary digits, commonly called bits, can be used to 
represent numbers of any magnitude by grouping 
digits together. The primary level at which binary 
digits are grouped within a particular computer is 
called word size. Most microcomputers use an 8-bit 
word size. This 8-bit unit is called a byte. If 
we consider the various computer words we can make 
out of all possible combinations of eight bits, we 
find that there are 2 to the 8th power or 256 
possible combinations. We can then build a 
computer which will respond differently to each 
byte which we present as an instruction. For 
example, an instruction of all @'s might mean stop, 
while 18181818 might mean increment a number by 1. 
Furthermore, a particular byte might stand for one 
operation when used with one model of computer and 
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might stand for a very different operation in 
another computer system. The important point is 
that all computers execute instructions through 
this binary language which is a combination of on- 
off states represented by @'s and 1's. 


As stated in the introduction, a computer must be 
programmed to perform calculations or to process 
information. Programs are prepared in a language 
with precise rules of grammar. Currently available 
computer languages fall into one of two major 
categories: high-level or low-level languages. 
Internally, computers perform, various operations 
according to the binary language described earlier. 
This binary language is commonly called machine 
language. Machine language is at the lowest level 
of computer languages and consists of groups of on 
and off states. A machine language word is any 
combination of eight @'s and 1's, (e.g., #1100108). 
As you can see, it is nearly impossible to tell 
what a given machine language word means by simply 
looking at the binary word. Furthermore, 
programming a computer in this fashion would be 
both time-consuming and tedious. 


To simplify the programming process, some easier 
method of entering and recognizing instructions is 
required. The next step in low-level languages 
then, is an assembly language which uses short 
mnemonic symbols that assist in the definition of 
the instruction. An assembly language translates 
simple instructions, such as HALT or INCREMENT, 
into the appropriate machine language instructions. 
But even this form of programming is too cumbersome 
for many applications. In assembly language, a 
program to print out "HELLO" on a terminal may 
require as many as 5@ steps. Furthermore, 
individuals without a great deal of computer 
expertise often find it difficult to translate 
problems into a computer program at either the 
assembly or machine language level. 


As a result, higher level languages were developed 

with instructions and rules of grammar which are 

easier to learn and apply. Problem-oriented, high 

level languages include FORTRAN, COBOL, PASCAL, PL- 
~ 1, and a variety of other languages. These high- 
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level languages are translated into machine 
language through programs called compilers. Any 
language that must be compiled or translated one or 
more times before it is reduced to the machine code 
is said to be a high-level language. 


Basic and Its Uses 


Most of the high-level languages mentioned in the 
previous section were designed for use by special 
groups comprised of relatively sophisticated 
computer users. Consequently, most of these 
languages are somewhat difficult. to learn. 
However, as the computer moved from the design 
laboratory into the university laboratory and then 
on into business, home, and school usage, the need 
for an easy to learn, grammatically simple, English 
language based, programming language grew. To 
answer this need, Professors John G. Kemeny and 
Thomas E. Kurtz of Dartmouth College developed the 
first version of BASIC in 1965. BASIC is a higher 
level language which is easy to learn and which can 
be applied to most computing problems. 


In addition to being easy to learn, BASIC has a 
number of features which make it useful for two 
very important and common applications: time- 
sharing systems and interactive programming. In 
BASIC, simple, English language instructions are 
translated line by line as the program executes 
into machine code through a program called an 
interpreter. This interpreter makes it easy to 
interrupt the conversion process, proceed to 
another task, and then return to pick up where you 
left off. Consequently, a computer can be used to 
allow multiple users running BASIC to timeshare a 
system. In timesharing, the computer handles each 
user in some specified sequence. The high speed of 
the computer, however, makes it appear that all 
users are being handled simultaneously. 


BASIC is also particularly well-adapted for use in 
interactive programs which require continual user 
interaction with the computer. Interactive 
programming allows the user to continually update 
and revise a program based on intermediate results. 
For complex problems involving a number of 
parameters that may require changing before a 
solution is reached, the interactive programming 
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capability is a powerful tool. 


Because of these important features, the library of 
programs written in BASIC, many of them in the 
public domain, has expanded rapidly. Many complex 
business programs, including inventory control, 
payroll, shipping and receiving, and accounting, 
are available in BASIC. There are programs written 
for computer assisted instruction (CAI) and for a 
wide range of interactive games in which users 
compete with each other or with the computer in 
Simulations of a variety of situations and events. 


In addition, the same computer system may be used 
to streamline accounting procedures, control 
manufacturing processes, regulate energy usage, or 
play games. Only the BASIC program need be 
changed. With the introduction of inexpensive, 
microcomputer-based, time-sharing systems (such as 
the multi-user version of the Cromemco System Three 
Computer), true multi-user computer operation 
becomes available at only a fraction of its cost 
five years ago. 


1.4 A Technical Discussion of the 


A sizable portion of the material in this section 
will be of interest to those who might be relative 
novices in the field of system-level programming. 
Also, it is hoped that more advanced programmers 
will appreciate the information presented relating 
to the internals of Cromemco 16K BASIC. 


‘The 16K Extended BASIC Language is an incremental 

compiler written in Z-88 code by Shepardson 
Microsystems, Inc. of Cupertino, CA specifically 
for, and to the specifications of, Cromemco, Inc. 


An incremental compiler is a type of interpreter 

which not only fully checks for correct syntax as 

the source is being entered, it also immediately 

resolves any references to undefined items. The 

primary advantage of the incremental compiler is 

execution speed. Since variable and line number 
» references are already resolved, no execution time 
( : is spent searching tables for items such as a 
variable name match. 
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Syntax Related Tables 


As each statement line (or direct command 
instruction) is entered from the keyboard (or some 
other I/0 device), it is checked for correct 
language syntax and converted into an internal 
format. Actually, the routine which does the 
Syntax checking also converts source items into 
internal tokens at the same time. The BASIC 
Ssyntaxer is actually driven by a set of syntax 
tables, the purposes of which are described below. 


The Reserved Name Table contains a list of all 
instruction, function, and operator names that are 
recognized by BASIC. This table is used to equate 
the user's ASCII input to a particular internal 
token. Thus in addition to the reserved name, each 
entry contains the token to be used. 


Main Syntax Table. Once the first reserved name in 
an instruction has been found, the instruction may 
be classified as to type. The type directs BASIC 
to an entry in the main syntax table, where an 
entry is made up of a list of required and/or 
optional further items (actually their equated 
tokens) that must be found in the statement. If a 
required item is not found in the proper position 
in the input line, a syntax error is generated. 
This table is quite complex, as even such things as 
arithmetic expressions in all their variations must 
be covered. There are even syntax subroutines 
included here, so that a statement type may require 
(for example) a subscripted string name by calling 
for a subroutine which in turn requires a string 
variable, a left parenthesis, subscripts, and a 
right parenthesis. (Please note that this is not 
actually how the search is performed; it is 
actually more segmented and more highly organized 
than stated here.) 


The syntax table contains other information about 
instruction types, such as whether they are allowed 
in direct mode (a command), within a program (a 
statement), or both places. It can also declare 
that an instruction must be the last one in a line 
or that subsequent instructions on the same line 
are permitted. 


The Binding Strength Table is more properly 
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described as a run-time table, since it determines 


the priority in which operators (+, -, AND, NOT, 
etc.) are to be executed. It is included here 
because it is used to relate the internal tokens 
for the various operators to their priorities. 


On Listing a Program 


After a program has been converted to internal 
token form, it is obviously desirable to be able to 
implement the LIST instruction. On unaltered 
source types of interpreter, this is simply a 
Matter of dumping the memory contents back out to 
the list device. In Cromemco BASIC, the problem is 
Significantly more complex. Each token must be 
reconverted to its ASCII form and (as we shall see 
later) constants must be reconverted to external 
format. 


Tables in User Program Memory Space 


Generally, these types of tables are referred to as 
runtime tables, though many of them are established 
at program entry time. They are the fundamental 
tables which the interpereter uses in executing a 
user program. 


The Statement Table is not strictly speaking a 
table. Tt is simply an area of memory where all 
program lines are stored after they have been 
converted to internal format. The most 
distinguishing feature of this table in Cromemco 
BASIC is that the last line entered is always at 
the end of the table. Only when a line is deleted 
or modified is it necessary to slide the table (in 
order to recover the space occupied by the deleted 
parts). Also note that the program's line numbers 
are not stored in the statement table. Instead, 
the line numbers are found in the line number 
table. 


Line Number Table. This table is also known as the 
Label Table. Herein are stored the actual line 
numbers. Also in this table each entry has the 
address of the beginning of its corresponding 
program line within the statement table. The third 
item in each entry in this table is the address 
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within the table of the next logical succeeding 
line (i.e., the line next to be executed unless 
program flow is altered by a GOTO, GOSUB, or NEXT 
statement). Note the implication here: even this 
table is not organized in line number order! As 
each new line is entered, its label entry is simply 
appended to the table and the logical successor 
pointers are updated as needed. 


Variable Table. When a variable is first defined 
(which occurs as the first line using it is 
entered), an entry is created for it in this table. 
There are many types of information contained 
herein. All variables have their name ('Al', 'AS', 
'E') and variable type (string, integer, short or 
long floating point, and/or array) stored here. In 
addition, scalar variables (non-array numeric 
variables) have their actual value stored here. 
Strings have their dimension and current length 
stored also. Arrays have the number of dimensions 
in use noted as well as the maximum value of each 
dimension. In addition, arrays and string entries 
contain the address of the actual location of -the 
data for each. The data so addressed is located 
within the string/array table. 


String/Array Table. Again, this table is not so 
much a table as simply a section of memory reserved 
for the storage of array and string data. Of the 
tables mentioned so far, this one is unique in that 
it is allocated (expanded) at runtime. That is, 
since statements of the form: 


310 INPUT J 
328 DIM AS(J), B3(J,2) 


are legal, arrays and strings cannot have their 
space allocated to them until they are actually 
dimensioned during program execution. 


The For/Next Table. An entry is placed in this 
table whenever a FOR instruction is encountered. 
Information kept here includes the address of the 
corresponding variable table entry, the size of 
STEP requested (or implied), the terminating TO 
value, and the address of the entry in the label 
table corresponding to the line logically following 
the FOR instruction. If a FOR statement is 
executed using a variable with an entry already j 
stored in the FOR/NEXT table, the old entry is \ 
deleted, the table is adjusted, and the new entry : 
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is appended. 


GOSUB/RETURN Table. A very simple table, this 
consists simply of the address of an entry in the 
label table which corresponds to the line logically 


following the GOSUB statement. 


User-Defined Functions Table. Since only user- 
defined functions FNA through FNZ are allowed in 
16K BASIC this is a fixed length table with 26 
entries, each active one of which contains the 
address of the label entry corresponding to the 
line where the function was defined. 


An Example 


There follows an actual example of what happens 
internally to BASIC when a program line is entered 
(syntax time) and then executed (run time). It is 
assumed that any existing program and/or data has 
been removed via a SCRatch command and that the 
example line shown is the first (and only, though 
this is not significant) line entered towards 
creating a new program. 


This is the example line: 


190 IF A2 = 3.7 THEN 300 


Syntax Time 


The first thing detected is the line number, '199'. 
This line number is placed in the label table along 
with the address of the beginning of the statement 
table (where the encoded line will be stored). 
Since this is the only entry in the label table, 
the successor pointer will be set to zero to 
indicate no successor. Since the label table works 
from the top down, the pointer to the bottom of the 
table would be updated to indicate where to place 
the next entry. So far, then, the label table 
looks something like this: 


2 bytes -- pointer to statement in statement 
table 
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2 bytes -- pointer to successor label (zero, 
currently) 
3 bytes -- the line number, 199, in BCD (5 


digits significant) 


Next, the keyword ‘'IF' is encountered and 
recognized as a valid statement type. Pe. 2s 
translated to a single byte internal token and the 
syntax table entry for 'IF' is accessed. The 
Syntax for '‘'IF' requires that the keyword be 
followed by an expression, so the appropriate 
syntax subroutine is called. 


Without going into detail as to what a valid 
expression is, and how the syntaxer determines that 
it has or has not encountered one, it is sufficient 
to note that certainly 'A2=3.7' would be considered 
valid. That being so, the variable 'A2' makes its 
first appearance and must be added to the variable 
table. Its entry would look something like this: 


2 bytes -- the variable name (A2) 


1 byte -- the variable type, assume a 62, 
short floating point 


4 bytes -- the actual value of the variable, 
in the length required for its 
type. This is set to zero until 
altered. 


The statement table would receive a byte signifying 
that a numeric variable had been found followed by 
two bytes which are the address of the entry for 
‘A2' within the variable table. 


The equals sign ('="') would be recognized as an 
operator, and its internal code stored next in the 
statement table. 


The value '3.7' would be recognized as a floating- 
point constant (integer constants don't have 
decimal points), and a routine would be called to 
translate it to internal format. The statement 
table would receive a byte signifying a particular 
type of constant (short-floating here) followed, 
and then the internal constant would be stored. 


The '‘'IF' syntax requires that the expression be 
followed by a 'THEN' keyword. When it is found, 
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its internal token is stored in the statement 
table. 


"THEN' may be followed by either another whole new 
instruction or (as in this case) by a line number. 
The processing of this line number is partly what 
qualifies the Cromemco BASIC interpreter to be 
called an incremental compiler. 


The label table is scanned for a line number '30@'. 
When it is not found, an entry is made for it 
similar to the one previously made for line '19@'. 
However, for line number 309, the address of its 
corresponding line in the statement table is set to 
an illegal value to indicate that it doesn't exist. 
Later, if a line 398 were entered, the address 
would be changed to reflect the fact. Also, the 
entry for line 189 is updated to reflect that its 
logical successor is line 306 (the next 
sequentially numbered line). 


The statement table receives a token to indicate 
that a label table address will follow, and then 
the address of the label table entry for line '399' 
is stored. Finally, a byte of zero (@@) is stored 
to indicate the end of line. 


At this point, then, the statement table will 
contain the following: 


1 byte -- token for ‘IF! 

l byte -- token, a variable table address 
follows 

2 bytes -- the variable table address for 'A2! 

l byte -=- token for '='! 

l byte -- contains @2 hex to indicate that a 
Short floating point constant 
follows 

4 bytes -- the internal form of the constant 
nes ae 

l byte -- token for 'THEN' 

1 byte -- token, a label table address 
follows 
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2 bytes -- label table address for line number 
382 
1 byte -- value 9% hex, indicates end of line 


1.4.4.2 Run Time 


Assume now that the user requested a RUN of the 
program (and, incidently, even this simple 
statement must go through the syntax process before 
it is executed.) 


BASIC searches out the first logical line of the 
program from the label table and then performs the 
following steps: 


First, the address of the statement within the 
statement table is found. Then the first byte of 
the statement is used to vector to the routine 
responsible for processing IF statements. 


The 'IF' processor knows that what follows is an 
expression, so it calls the expression execution 
routine to evaluate 'A2 = 3.7'. 


The expression evaluator notes that the first item 
is a variable, so it uses the variable address to 
extract the value of the variable from the variable 
table entry for ‘A2'. It places this value in an 
area of memory referred to as the argument stack. 


The '=' relational operator (note: this is not the 
same thing as the assignment operator ‘'="' used in 
LET instructions) is then pushed onto another 
BASIC-maintained stack known as the operator stack. 


The constant token causes the short floating point 
constant '3.7' to also be placed on the argument 
stack. 


Since there is no more to the expression, the 
expression evaluator calls on the processing 
routine for the equal relational operator. The 
equality processing routine extracts the two values 
(contents of 'A2' and the value '3.7') and returns 
either a one (1) if they are equal or a zero (@) if 
they are not. The expression evaluator is finished 
and returns with this value to the 'IF' processor, 
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At this point let us examine what happens if the 
value returned is ‘1' (which it can't be in our 
example). The '‘'IF" processor ignores the 'THEN' 
token (it has to be there, the syntaxer passed it!) 
and encounters the label table token. This implies 
a change in program flow to the line specified in 
the table entry. So the '‘'IF' processor simply 
places the entry encountered in BASIC's own ‘next 
logical statement’ location. It then checks to 
ensure that a line really exists to correspond to 
the entry. The line does not exist and BASIC 
issues the error message, GOTO UNDEFINED LINE 
NUMBER. 


Now backtrack a bit and assume that the expression 
evaluator had returned with a '@' instead (which it 
would in our example). In this case, the 'IF' 
processor simply aborts processing of its line and 
returns to allow BASIC to execute the next logical 
line. When BASIC encounters the next logical line 
('388' in our example) it checks to see if the line 
exists (it doesn't here) and executes it if it 
does. If it does not, BASIC ignores the line and 
falls through to the next logical line. Since line 
388 does not exist, and since there is no logical 
successor, BASIC would print out ***END***, 


In Cromemco BASIC, there is no speed penalty for 
using any and as many variables wherever desired in 
the program, there is no reason to put certain 
statements (i.e., subroutines) first in the 
program, and constants in programs execute as fast 
or faster than variables. 
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Instruction Syntax 


INSTRUCTION SYNTAX 


The Cromemco 16K BASIC language is designed to 
allow the user to structure and format a program in 
a wide variety of styles. This section covers the 
features which allow this flexibility as well as 
those elements of BASIC syntax which do affect 
program operation. 


Spaces or Blank Characters 


All spaces are optional within 16K BASIC except for 
those which are included as part of text (i.e., 
REMarks, string literals and string variables, see 
sections 4.3 and 5.2). Once a program has been 
entered in BASIC, the spacing within a listed 
program will automatically conform to BASIC 
standards. The following user interaction with 
BASIC demonstrates both that spaces are ignored on 
input, and that BASIC stores a program in a 
standard format. 


>>1 OOPR INT"This is a string literal" 
>>12@REM The spacing within the string literal 
>>13@REM and the REMark statements will not be 
>>1L4@REM changed by BASIC. 

>>15@FORI=1TO19 

>>16@PRINT I : 

>>17ONE XT I 

>>1 80EN D 

>>L IST 


108 PRINT"This is a string literal" 

128 REM The spacing within the string literal 
138 REM and the REMark statements will not be 
14@ REM changed by BASIC. 

15@ FOR I=l1 TO 18 

168 PRINT I; 

170 NEXT I 

189 END 
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Upper Case Characters 


All letters used in Cromemco 16K BASIC must be 
upper case (capital). The only exceptions to this 
are string literals, string variables, and REMarks 
which may contain any printable characters. If any 
BASIC instruction is entered in lower case letters, 
a Syntax error will result. 


The BASIC Prompt (>>) 


When BASIC is ready to accept a command or 
statement line, it displays a prompt which consists 
of two greater than symbols (>>). The purpose of 
the prompt is to indicate that BASIC has finished 
its last task and is waiting for the user's next 
instruction. 


Commands 


A command is a BASIC instruction which is executed 
immediately (as soon as the carriage return is 
depressed). Commands have no line numbers because 
they are not stored by BASIC. 


Cromemco 16K BASIC allows most instructions to be 
used as commands. For example, BASIC can be used 
as a calculator while it is in the command mode: 


>>PRINT 29990/5 
4988 


>>PRINT (4000+77)/63. 
64.714285714285 


As can be seen, a command may be given whenever the 
BASIC prompt (>>) is displayed. 


In this manual, the term instruction includes both 
commands and statements. All instructions listed 
as instructions or commands may be used as 
commands, while those listed as statements may not 
be used as commands. 
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Statements 


A statement is a BASIC program line which contains 
one or more instructions, and which is stored for 
execution at a later time. Statements are not 
executed until the RUN command, or some other 
command which will begin execution of a program, is 
given. A statement line has a unique (within a 
program) line number by which it can be accessed. 
If a second statement is entered with the line 
number of a line which already exists, the original 
line will be replaced by the new line. 


Cromemco 16K BASIC allows most instructions to be 
used as statements. For example, one BASIC program 
can load and run another BASIC program: 


188 RUN "PROG2" 


Execution of this statement will cause PROG2 to be 
loaded into the User Area and execution to begin. 


In this manual, the term instruction includes both 
statements and commands. All instructions listed 
as instructions or statements may be used as 
statements, while those listed as commands may not 
be used as statements. 


Multiple Instruction Lines 


Cromemco 16K BASIC allows more than one instruction 
to be associated with a single line number. Each 
pair of adjacent instructions must be separated by 
a colon (:). The number of instructions which may 
appear on a single line is limited only by the 
length of a line. For example: 


109 INPUT A : IF A<@ THEN GOTO 199 
208 PRINT SOR(A) : PRINT : PRINT 
3088 REM LINE 298 WILL SKIP 2 LINES 


User defined functions (DEF FNs) and DATA 
statements must appear as a single instruction on a 
line. The following instructions may appear as 
part of a multi-instruction line but they must be 
the last instruction on the line, i.e., no other 
instruction may follow on the same line. 
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RUN 

REM 

GOTO 

GOSUB 

RETURN 

FOR 

ON...GOTO (GOSUB) 
ENTER 

DELETE 


A colon may not terminate a multiple instruction 
line. A colon must be followed by another 
instruction, 


The IF...THEN instruction is unique when followed 
by other instructions on the same line. The reader 
is referred to the IF...THEN instruction for a 
further discussion. 
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NUMERIC AND STRING 


INTERNAL MACHINE REPRESENTATION 


Numeric and string alphanumeric information is 
stored by BASIC in different forms. This section 
explains these different formats. 


Integer 


Integers are whole numbers and in 16K BASIC they 
must be within the range +32767 to -32768. When 
Stored by BASIC, an integer occupies 2 bytes of 
memory. 


Integer numbers are stored low byte first, high 
byte second. If the high bit of the high byte is a 
1, then the number is negative; if it is a @, then 
the number is positive. ; 


A positive number is stored as the binary 
representation of the number. 


A negative number is stored as the 2's complement 
of the number. 


Example: 


The number 1234 will be represented by the 
hexadecimal bytes D2 @4 when stored as an Integer. 
When the order of the bytes is. reversed (94 D2) 
this is the binary equivalent of the decimal number 
1234. 


The number -1234 will be represented by the 
hexadecimal bytes 2E FB when stored as an Integer. 
When the order of the bytes is reversed (FB 28) 
this is the 2's complement of the binary equivalent 
of the decimal number 1234. Because the high bit 
of the high byte was 1 (before the 2's complement 
was taken), the number is negative (-1234). 
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Short Floating Point 


A Short Floating Point number stored by BASIC 
occupies 4 bytes, has an accuracy of 6 digits, and 


must be within the range +9.99+62 to +9.99E-65. 


The first byte of a Short Floating Point number 
contains the sign of the number and the exponent in 
excess 40H (64 decimal) notation. If the high bit 
of the first byte is a 1, then the number is 
negative; if it is a @, then the number is 
positive. Note that this is not the sign of the 
exponent but rather of the number itself. The 
remaining 7 bits of the first byte contain the 
exponent plus 4@H. In order to find the true 
exponent, 4@H (64 decimal) must be subtracted from 
this number. 


The remaining three bytes contain the BCD (Binary 
Coded Decimal) mantissa which has been normalized 
to a value between @ and 1. The implicit decimal 
point is located before the first byte of the 
mantissa. Each byte of the mantissa can contain 2 
significant digits yielding a total of 6 
Significant digits for a Short Floating Point 
number. 


Example: 


The number -1.2345E+21 will be represented by the 
hexadecimal bytes D6 12 34 5@ when stored as a 
Short Floating Point number. 


The first bit of the first byte is a 1 indicating 
that the number is negative. The remaining 7 bits 
of the first byte (56H or 86 decimal) is the 
exponent plus 49H. To get the true exponent 4H 
must be subtracted from 56H. This leaves an 
exponent of 16H or 22 decimal. This is not the 
exponent of the original number because the number 
was normalized. In this example, normalization 
involved dividing the number by 1@ and adding 1 to 
the exponent to compensate for the division. 


The remaining three bytes are the BCD 
representation of the normalized number. BCD 
stands for Binary Coded Decimal which is a method 
of representing a decimal number in binary. Using 
this method, each byte can contain two one digit 
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decimal numbers. As can be seen from the example, 
non-significant digits are zero filled. 


Long Floating Point 


A Long Floating Point number stored by BASIC 
occupies 8 bytes, has an accuracy of 14 digits, and 
must be within the range +9.99+62 to +9.99E-65. 


The internal representation of a Long Floating 
Point number is similar to that of a Short Floating 
Point number. The difference is that four 
additional bytes are added to the mantissa for a 
total of 7 bytes. This is how a Long Floating 
Point number can maintain 14 significant digits. 


Hexadecimal 


A Hexadecimal number occupies two bytes and must be 
within the range 9H to FFFFH. 


The internal representation of a hexadecimal number 
is the same as that of an Integer. Except for the 
functions BINAND, BINOR, and BINXOR, hexadecimal 
numbers are treated as signed integers (refer to 
section 3.1). 


String 


A string is an ordered list of alphanumeric 
information. Examples of strings include words, 
sentences, parts of words, groups of letters or 
special characters. 


Elements of a string (characters) stored by BASIC 
occupy 1 byte each. They are represented 
internally as an eight bit number which is the 
ASCII (American Standard Code for Information 
Interchange) code for the character being stored. 
Bit number 7 (the high bit) is a parity bit in the 
ASCII convention and, although it effects string 
comparisons, it does not effect the character which 
is PRINTed. Note that although this bit is 
normally @ in 16K BASIC, GET and CHR$ can cause it 
to be set equal to l. 
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CONSTANT AND STRING LITERAL FORMATS 


Constants are, as the name implies, unchanging. 
They each have one value. 


String literals are similar to constants in that 
they each maintain one value which does not change. 


This section covers the standard formats for 
constants and string literals in 16K BASIC. 


Integer and Floating Point Constants 


A constant is a number. It does not change value 
and is represented as it would be in any arithmetic 
computation. 


There are three types of constants: integer, 
floating point, and hexadecimal. All constants 
(not specified as hexadecimal) equal to or greater 
than 19,8098 and those containing a decimal point 
are always stored by BASIC as floating point 
numbers (either Short or Long Floating Point 
depending on the current mode, but always Long if 
there are more than 6 significant digits). All 
constants (not specified as hexadecimal) with a 
value less than 19,098 and not containing a decimal 
point are stored by BASIC as Integer numbers. 


Constants 
Floating Point Integer 
20008 55 
3. 9985 
- 288376 5 
12.7 458 
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Floating point constants (1.2, 3., 1E6, etc.) are 
stored according to the mode which is active when 
they are entered. An exception is a constant with 
more than 6 significant digits, which is always 
stored as a Long Floating Point number. For 
example, if the active mode is set to Short 
Floating Point (see the SF MODE instruction) and 
the following commands are given: 


>>LONG L 
>oL = 1.7/3. 


L will be assigned a value of 98.333333900000008 
because 1. and 3. are SHORT (SFMODE was current 
when they were entered). But, under the same 
circumstances, if we had said: 


>>LONG L 
>>L = 1./3.89900000 


L would have been assigned a value of 
@.33333333333333 because 3.000000008 is forced to 
LONG (more than 6 significant digits). 


If in the two previous examples, the current mode 
had been Long Floating Point, L would have received 
a value of §.33333333333333 in both cases because 
both 1. and 3. would have been stored as Long 
Floating Point numbers. 


Hexadecimal Constants 


Hexadecimal numbers are used in base 16 arithmetic. 
The set of digits used in hexadecimal arithmetic is 
@ through 9 and A through F. 


In Cromemco 16K BASIC, hexadecimal constants are 
identified by leading and trailing percent ($%) 
signs. 
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Constants 
Equivalent 

Hexadecimal Decimal 
ZBEOCOR -32768 
SIGHS -28672 
SFFFFZ -1 
SOB 9 
SAS 18 
SES 15 
18% 16 
S8O% 128 
SFFZ 255 
%1G0% 256 
$7FFFS 32767 


A hexadecimal number is stored in the same format 


aS an integer and may be used wherever a constant 
is allowed. 


String Literals 


A string literal is a string which is enclosed 
between quotation marks. The quotation marks are 
not part of the string itself, but are used to 
delimit (mark the ends of) the string. The value 
of a string literal does not change. 


A quotation mark can be represented within a string 
literal by the use of two quotation marks, one 
immediately following the other. 


String Literals 


"This is a string literal" 
"Here are imbedded ""“quotation"" marks" 


{special} *+- characters are o.k.!" 


just spaces" 


The trailing quotation mark on a string literal is 
not required at the end of a line. In this case, 
the carriage RETURN will terminate, but not be a 
part of, the string literal. 
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VARIABLE REPRESENTATION 


Variables are, as the name implies, able to change 
or vary in value. As a program is executed, 
variables may be assigned new values at any time. 
This section covers the standard formats for 
variables in 16K BASIC. 


Numeric Variables 


Numeric variables may be assigned numeric values. 
The range and accuracy of these variables depends 
on their type. See Chapter 3 on Numeric Internal 
Machine Representation for more information. 


Format of Numeric Variables 


Numeric variables are represented by a single 
letter (A-Z) or a single letter followed by a 
single number (@-9). There are 286 possible 
numeric variable names (A, A@, Al, A2,..-,A9, B, 
BO, Bl,.«..-,B9, C, CO, Cl,.22,Z, 2H, Z1,..2,28, 29). 
In compliance with the rules of 16K BASIC, only 
upper case letters may be used in variable names. 


Integer Variables 


Specific variables may be set to Integer by the 
INTEGER instruction. The default mode for 
variables may be set to Integer if the IMODE 
instruction is given before the RUN instruction. 
Refer to the sections covering Integer Internal 
Machine Representation, and the INTEGER and IMODE 
instructions. 


39 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 
5. Variable Representation 


Short Floating Point Variables 


Specific variables may be set to Short Floating 
Point by the SHORT instruction. The default mode 
for variables may be set to Short Floating Point if 
the SFMODE instruction is given before the RUN 
instruction. Refer to the sections covering Short 
Floating Point Internal Machine Representation, and 
the SHORT and SFMODE instructions. 


Long Floating Point Variables 


Specific variables may be set to Long Floating 
Point by the LONG instruction. Long Floating Point 
mode is normally the default mode. If the mode has 
been changed to SFMODE or IMODE, the default mode 
for variables may be reset to Long Floating Point 
if the LFMODE instruction is given before the RUN 
instruction. Refer to the sections covering Long 
Floating Point Internal Machine Representation, and 
the LONG and LFMODE instructions. 


Matrices and Lists 


A matrix is an array of numeric variables in a 
prescribed form. For example, the array: 


3 2 @ 
1 4 6 
ae. A GS 


is a matrix with three rows and three columns. A 
matrix with m rows and n columns is written: 


all al2 al3 ...aln 


a21 a22 a23 ...a2n 


aml am2 am3 ...amn 
The individual entries in the matrix are called 
elements or cells. For example the quantity aij in 
the above matrix is the element in row i and column 
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5.1.5.1 


5.2 


j. Subscripts used to indicate elements always 
denote the row first and the column second. 
Cromemco BASIC permits the user to define one, two, 
or three dimensional matrices. A two (i.e., Mi) 
or three (i.e., Mijk) dimensional matrix is 
commonly-called a table. A one dimensional matrix, 
a matrix with n columns but only one row, is 
commonly called a list. For example, the matrix: 


3, ~1, 5, -8 


is a list (or a matrix) with one row and four 
columns. 


A matrix may be defined to be composed of Long or 
Short Floating Point or Integer variables. 


Format 


A matrix is named in the same manner as a numeric 
variable. A specific element of a matrix is 
accessed by the matrix. name followed by 1, 2, or 3 
indices enclosed in parentheses. These indices may 
be numeric expressions, variables, or constants. 


Singly dimensioned matricies are implicitly 
dimensioned as 18. Larger singly dimensioned as 
well as 2 and 3 dimensional matrices must be 
explicitly dimensioned by the DIMension, INTEGER, 
LONG, or SHORT instruction. 


An element of a matrix may be used anywhere a 
variable is allowed. 


String Variables 


String variables may be assigned alphanumeric 
values. This includes all letters (both upper and 
lower case), numbers, and all printable and non- 
printable characters. Refer to the section on 
String Internal Machine Representation for more 
information. 
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Format 


String variables are represented by a single letter 
(A-Z) followed by a dollar sign ($) or a single 
letter followed by a single number (8-9) followed 
by a dollar sign. In compliance with the rules of 
16K BASIC, only upper case letters may be used in 
string variable names. Some examples of string 
variable names are: 


Dimensioning String Variables 


There is, for most purposes, no limit to the size 
(i.e., number of characters) of a string literal 
that may be assigned to a string variable. 
However, the default value in 16K BASIC for string 
size is 11 or fewer characters. If string values 
of more than 11 characters are to be assigned to a 
variable, the string variable must be DIMensioned, 
The DIM statement is used in BASIC to define the 
size of a string variable (see the description of 
DIM in Chapter 11). 


Example: 


1@ DIM Al1$ (28), BS(38), C4$ (4B) 


In this example, the string variable Al$ is 
dimensioned to allow for strings up to 21 
characters in length, the variable BS is 
dimensioned to allow up to 31 characters, and C4$ 
is dimensioned for up to 41 characters. Any string 
value assigned to a variable which exceeds the 
specified dimension is truncated. Consequently, 
the programmer should be sure to dimension string 
variables to handle the largest string which will 
be input. 


Note: DIM A$(28) allows a 21 character string 
because string bytes are numbered from @ through 
the specified DIM size. Remember that using the 
Oth element of strings (and arrays) can save memory 
space, . 
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5.2.3 


5.2.3.1 


A string of length zero is called a NULL string. 


Referencing String Variables 


String variables may be referenced (for input, 
output, manipulation, or comparison) in their 
entirety or by parts (substrings). For example, if 
the string variable A$ equals "SUBSTRING EXAMPLE", 
substrings of A$ include "SUB", "UBSTR", "G EXA", 
and any other part of the string. 


Substrings are referenced by subscripting string 
variables. The four formats for referencing string 
variables are discussed here. In these formats 
svar refers to a string variable name (refer to 
section 5.2.1) and aexp-l and aexp-2 are arithmetic 
expressions, variables, or constants. If the 
string variable has not been explicitly 
DIMensioned, it can be considered to have an 
implicit DIMension of 10. 


Format-l: svar 


On input (INPUT or GET), if a string variable is 
referenced without subscripts, the entire string is 
referenced by implication. This means that all 
characters, @® through the DIMension of the string 
are referenced. On output (PRINT or PUT), if a 
string variable is referenced without subscripts, 
the string is referenced from the first character 
(character number @) through the last non-null 
character. This is the same as saying that the 
string is referenced from character number @ for a 
length LEN (see the LEN string function). 


Summary —- 
On input, if no subscripts are used, the 


entire string variable is referenced as 
dimensioned. 


On output, the string is referenced from 
character @ through the last non-null 
character. 
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5.2.3.2 Format-2: svar(aexp-1) 


54:25363 


If a single subscript is used it must be greater 
than zero and less than or equal to the DIMension 
of the string variable. This format defines a 
substring which starts with the character in 
position aexp-l and includes all subsequent 
characters in the string through the DIMensioned 
value (input) or through the last non-null 
character (output). If, on output, a character 
position greater than the LENgth of the string is 
explicitly referenced, then all subsequent null 
characters are referenced by implication. 


If aexp-1 is less than zero, the entire string will 
be referenced (character @ through the DIMensioned 
value). 


If aexp-l is greater than the DIMension of the 
String variable, a run time error message will 
result. 


Summary — 


If one (aexp-1) subscript is used, the 
substring referenced starts with 
character in position aexp-1l and includes 
all subsequent characters in the string 
through the DIMension value (input) or 
through the last non-null character 
(output). 


@ < aexp-l < DIMension of svar 


Format-3: svar(aexp-1,aexp-2) aexp-2 > @ 


In this format, aexp-l must be greater than or 
equal to zero and less than the DIMension of the 
string variable. Thus, aexp-1 defines the starting 
character of the substring as it did in format—2. 


The second subscript (aexp-2) must be greater than 
the first subscript (aexp-1) and less than or equal 
to the DIMension of the string variable. Now, 
aexp-2 defines the final character of the 
substring. 


If either aexp-1l or aexp-2 exceeds the DIM value of 
the string variable, a run time error will result. 
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If aexp-l1 is less than zero, the entire string is 
referenced as though no subscripting had been used 
(see format-—-l). 


If aexp-2 is less than aexp-l, aexp-1 will be the 
starting character of the substring and the 
DIMensioned value will be the final character (as 
though format-2 had been used with aexp-l). 


Refer to format-4 if aexp-2 is less than zero. 


Summary -—- 

If two subscripts (aexp-l, aexp-2) are 
used, the second subscript being 
positive, the substring referenced starts 
with character in position aexp-l and 
ends with character in position aexp-2. 


® < aexp-l < aexp-2 < DIMension of svar 


5.2.3.4 Format-4: svar(aexp-l,aexp-2) aexp-2 < @ 


In this format, aexp-l must be greater than or 
equal to zero and less than the DIMension of the 
string variable. Thus, aexp-l defines the starting 
character of the substring as it did in format-2 
and format-3. 


The second subscript (aexp-2) must be less than 
zero and its absolute (positive) value must, when 
added to aexp-l not exceed the DIMensioned value of 
the string variable. In this case, the absolute 
(positive) value of aexp-2 indicates the length or 
number of characters included in the substring. 


If aexp-l plus the absolute value of aexp-2 minus 
one is greater than the DIMensioned value of the 
string variable, a run time error will result. 


If aexp-l is less than zero, the entire string is 
referenced as though no subscripting had been used 
(see format-l). 


Refer to format-3 if aexp-2 is equal to or greater 
than zero. 
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Summary - 

If two subscripts (aexp-l, aexp-2) are 
used, the second subscript being 
negative, the substring referenced starts 
with character aexp-l and continues for a 
length of |aexp-2]. 


® < aexp-l < DIMension of svar 
aexp-1 + |aexp-2| < DIMension of svar. 


Notes: 


If aexp-2 is equal to %890809% then aexp-2 is 
considered to be equal to -@ (minus zero) and will 
produce a string of length zero (i.e., a null 
string). 


Examples: 


Assume that the command A$ = "ABCDEFGHIJK" has been 
given and that the string variable A$ has not been 
DIMensioned in a DIMension instruction (it is 
implicitly DIMensioned at 1@ and it contains 11 
characters numbered zero through ten). 


Instruction Result Explanation 
PRINT AS ABCDEFGHIJK Format-l was used to PRINT the 


entire string. 


PRINT AS (5) FGHIJK Format-2 was used to PRINT the 
substring starting with 
character 5 (remember that the 
characters are numbered 
starting with @). 


PRINT AS (4,8) EFGHI Format-3 was used to PRINT the 
substring starting with 
character 4 and ending with 
character 8. 


PRINT A$ (3,-2) DE Format-4 was used to PRINT the 
substring starting with 
character 3, for a length of 

two characters. 


Now assume the command AS = "ABCDEFG" has been given. This 
will fill the string with the seven characters A-G and 4 null 
characters. In the following examples the lower case n 
represents a null character. s 
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Instruction 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


AS 


AS (-1) 


AS (8) 


AS (5) 


AS (5,2) 


AS (8,9) 


AS (13,15) 


Result 


ABCDEFG 


ABCDEFGnnnn 


nnn 


FG 


FGnnnn 


AS (3, $8000%) 


Explanation 
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Format-1l was used to PRINT 
character @ through the first 
non-null character. 


Format-2 (with a negative 
argument) was used to PRINT 
characters @ through DIM. 


Format-l was used to PRINT 
characters 8 through 14. Note 
that character 8 is greater 
than the LENgth of AS so that 
all succeeding nulls are 
referenced by implication. 


Format-2 was used to PRINT 
character 5 through the last 
non-null character. 


Format-3 was used with 
aexp-2<aexp-1l so the string was 
output from character 5 through 
the DIMension of the string. 


Format-3 was used to output 
characters 8 through 9. 


Format-3 error, aexp-l1>DIM. 


A length of -@ indicates a null 
string, no string is output. 
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OPERATORS 


An operator is a symbol or group of letters which 
indicate that an action is to be taken on one or 
two items. This section describes the types of 
operators used in 16K BASIC and the symbols which 
represent them. 


Arithmetic Operators 


The arithmetic operators are analogous to their 
algebraic counterparts: 


Arithmetic 
Operator Meaning 
+ plus sign (positive number) 
- minus sign (negative number) 
** or * exponentiation 
= multiplication 
/ division 
ot addition 
- subtraction 


Arithmetic operations in a numeric expression are 
performed, according to the priority of the 
operation, from left to right. All operations 
enclosed within parentheses are performed first. 
When multiple sets of parentheses appear, the 
operations in the innermost set of parentheses are 
performed first, followed by the operations in the 
next set of parentheses, and so on until the 
operations in the outermost set of parentheses are 
evaluated. Following evaluation of expressions 
enclosed in parentheses, arithmetic operations are 
performed in the following order: plus and minus 
signs (unary operators), exponentiation, division 
and multiplication (these two operations have the 
same priority), and addition and subtraction (these 
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operations also have the same priority). When 
operations have the same priority, calculations are 
performed from left to right within the expression. 
The use of parentheses can alter the order in which 
operations are performed since the parentheses 
override both the left to right priority and the 
normal order of operations. 


Examples: 
A+B* C ** D 


The above expression will be evaluated as follows: 


temp = C ** D 
templ = temp * B 
final value = templ +A 


The order of association can be changed by the use 
of parentheses: 


((A + B) * C) ** D 


This expression will be evaluated as follows: 


temp = A+B 
templ = temp * C 
final value = templ ** D 


It is a good idea to use parentheses if there is 
any doubt as to the order in which a series of 
operations will be performed. Intermediate results 
may also be assigned to temporary variables if this 
will help to clarify the order of operations. 


6.2 Assignment Operator 


The equal sign (=) is the assignment operator. It 
is used to assign the value of an arithmetic, 
relational, or boolean expression, or a function, 
to a numeric variable. 


In addition, the assignment operator is used to 
assign the value of a string literal, string 
variable, or string function to a string variable. 


BASIC also uses the equal sign as a relational ’ 
operator (see the following section). The only \ 
place the equal sign is a legal assignment operator : 
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is the first equal sign in a LET, implied LET, or 
MAT instruction. 


Examples: 


168 A = 2 

119 PRINT A 

120 A = A*2 

130 IF A = 16384 THEN STOP 
148 GOTO 119 


This program will print out all of the powers of 2 
which are less than 16384 and then it will stop. 
Statement 108 assigns the value of 2 to the numeric 
variable A. 


Line 128 assigns the result of the multiplication 
of the variable A times the constant 2 to the 
variable A. This is a good example of the reason 
the term assigned to is used instead of equal to. 
A is obviously not equal to A times 2. The 
expression on the right side of the assignment 
operator is evaluated (A * 2) and then this value 
is assigned to the variable on the left of the 
assignment operator. 


Statement 13@ uses the equal sign as a relational 
operator. The relational expression (A=16384) is 
evaluated as true or false. If it is true, the 
portion of the instruction following THEN is 
executed (program execution STOPs). If it is 
false, the next succeeding statement (148) is 
executed. Refer to the following section for a 
further discussion of relational operators. 


Line 148 transfers control back to line 11@ and 


execution continues until the relational expression 
(A = 16384) is true. 


18 AS = "END" 

28 PRINT "Enter a name," 
308 PRINT "END to stop"; 

48 INPUT GS$ 

5@ IF GS = AS THEN STOP 

68 PRINT G$ : PRINT 

70 GOTO 206 


Statement 16 assigns the value of the string 
literal "END" to the string variable A$. Line 49 
gets a string from the user and assigns the value 
of that string to the string variable GS$ after 
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having set G$ equal to a string of null characters 
(see the INPUT instruction). 

Statement 5@ uses the equal sign as a relational 
operator. The relational expression (G$ = A$ or we 
could have used G$ = "END") is evaluated as true or 
false and the execution of the program continues on 
the basis of the evaluation. See the next section 
for more on relational operators. 

Relational Operators 


Relational 
Operator Meaning 

= is equal to 
< is less than 
> is greater than 
<= is less than or is equal to 
>= is greater than or is equal to 
<> or # is not equal to 


Relational operators are used to compare two 
expressions. Each of these expressions may be 
composed of other relational, boolean, or 
arithmetic expressions. This allows the user to 
nest relational and boolean expressions. 


In addition, relational operators are used to 
compare string variables, string literals, and 
string functions with each other. 


The result of a relational operation is either true 
(=1) or false (=). 


Examples: 


108 IF A<=8 GOTO 15@ 
118 PRINT A=@ 

120 B=A<@ 

138 C=A=5 

158 END 


Statement 1080 can be read as, "If the value of the 
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variable A is less than or is equal to zero, 
transfer program control to line 158; otherwise 
continue with the next statement (line 110)". This 
is the most common use of a relational operator. 
This statement can be used to test the validity of 
user input, transferring control to another section 
of code if the input is not as desired. 


Statement 118 may at first look like an improper 
assignment instruction. Remember that the equal 
sign is, in this case, a relational operator, not 
an assignment operator. This statement can be read 
as, "Compare the value of A with @ and print the 
result of the comparison". Thus, a zero (=false) 
will be output if A is not equal to zero and a l 
(=true) will be output if A is equal to zero. 


Statement 120 is similar to 119, with the exception 
that the result of the relational comparison is 
assigned to the variable B. B will therefore take 
on a value of @ or l. 


Statement 138 is a combination of the procedures 
used in 118 and 120. Remember that the first equal 
sign is an assignment operator while the second 
equal sign is a relational operator. This 
statement can be read as, "Compare the value of the 
variable A with five and assign the result of that 
comparison to the variable C". C will take on the 
value of 1 (=true) if A is equal to five, otherwise 
C will be set equal to @ (=false). 


308 S$ = "zzz" 

305 INPUT QS 

318 IF Q$ > S$ THEN GOTO 3945 
315 S$ = QOS 

328 PRINT S$ 

325 GOTO 385 


Line 388 initializes the string variable S$ by 
filling it with z's (the alphabetic character with 
the highest value in the ASCII collating sequence). 
Line 305 requests string data from the user. 


Statement 319 evaluates the relational expression 
(Q$>S$) on the basis of the ASCII collating 
sequence (refer to the table of ASCII characters in 
the appendix). If the first character in the 
String Q$ is different from the first character in 
the string S$ then these characters are compared 
and this relationship determines the relationship 
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of the two strings. If the first character in each 
string is identical to the other, the comparison 
moves on the second character and so on. For 
example: 


Value of 

Expression 
Value of Q$ Value of S$ Q$>ss$ 
George Fred false 
Fred April true 
April Ted false 
april Ted true 
april ted false 
april apron false 
april apricot true 
april aprilandmay false 


Notice that all lower case letters follow the set 
of upper case letters in the ASCII collating 
sequence and that if two strings are the same 
except for length, the longer string has a greater 
value than the shorter one. 


Continuing with the example, if the relational 
expression (line 318) is evaluated as true, control 
is transferred to line 385 and the user is asked 
for another string. If the expression is false, 
this means that the string which was just INPUT by 
the user is closer to the beginning of the ASCII 
collating sequence than any other string which had 
been INPUT previously. The value of this string is 
then assigned to the string variable S$ so that all 
strings which are INPUT following this one can be 
compared with it. The value of the string is then 
PRINTed and control is transferred to line 365. 
Execution of this program may be terminated by 
depressing the ESCape key. 
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6.4 Boolean Operators 
Boolean 
Operator Meaning 
AND logical AND 
OR logical OR 
XOR logical eXclusive OR 
NOT logical NOT or negation 


Boolean operators perform a logical operation on 
one or two expressions. The expressions in a 
boolean operation may take on one of two values: 
false (=@) or true (=1). In Cromemco 16K Extended 
BASIC, all values which are not equal to zero 
(false) are considered to be true (=1) when used 
with boolean operators. 


AND Boolean Operator 
The AND boolean operator compares two logical 
values and if both are 1 returns a result of 1. If 


both values are not 1, then the result is @. 


Truth Table 


AND iy 1 
G My My 
1 Y) iL 


OR Boolean Operator 

The OR boolean operator compares two logical values 
and if either or both are equal to 1 then the 
result is 1. Otherwise the result is @. 


Truth Table 


OR i) 1 
B B 1 
1 1 1 
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XOR Boolean Operator 

The XOR boolean operator returns a @ if the logical 
values are identical and a 1 if the logical values 
are not identical. 


Truth Table 


XOR @ 1 
0 g 1 
1 1 8 


NOT Boolean Operator 


The NOT boolean operator returns the compliment of 
any logical value. In other words, if the logical 
value is 1, the NOT operator returns a 8. If the 
logical value is @, a 1 is returned. 


NOT Truth Table 
NOT @ isl 


NOT 1 is @ 


Examples: 


1@A=i1l: B=@: Al=i1: Ble1 

11 IF A AND A THEN PRINT "11 TRUE" 

12 IF NOT A THEN PRINT "12 TRUE" 

13 IF NOT B THEN PRINT "13 TRUE" 

14 IF A XOR A THEN PRINT "14 TRUE" 

15 IF NOT (A XOR A) THEN PRINT "15 TRUE" 
16 IF A OR B THEN PRINT "16 TRUE" 


The statements above give some examples of the use 
of boolean operators. The IF...THEN instructions 
are used in these examples to test if a given 
boolean expression is true or false. If the 
expression is true, the PRINT instruction following 
the IF...THEN is executed. If it is false, then 
nothing is printed. 


The results of each of these expressions can be 

determined from the preceding truth tables. For 

example, line 14 uses the XOR operator to compare 

two true (=1) values. Looking at the XOR Truth ea 
Table, it can be seen that a 1 and al yield a @ or . 
false value. Line 15 negates this same expression. . 
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Looking at the NOT Truth Table, NOT @ (Not false) 
is seen to be equal to 1 or true. 


The results of the rest of the examples can be 


determined in a similar manner, then tested on the 
computer, 
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PROGRAMMING EXAMPLES 


The examples in this chapter are intended for the 
first time user. They explain in step by step 
detail the procedures for creating, editing, and 
saving a BASIC program. If a more detailed 
description of a BASIC instruction is required, the 
reader is referred to the chapters of this manual 
which cover the instructions on an individual and 
in depth basis.. 


It is recommended that the novice BASIC user go 
through this section while seated in front of a 
terminal, with BASIC up and running. This way, 
each instruction and program can be tried out as it 
is presented. 


When BASIC is loaded into a minimum disk system 
configuration with 32K bytes of memory, the space 
available to the user should be 1.5K bytes. The 
other 39.5K bytes are occupied by BASIC, the 
console processor, CDOS I/O routines, etc. For 
ways to increase the user space, see the notes at 
the end of the manual, specifically: Changing the 
Number of I/O Channels. 


Note: It is important to remove disks from the 
disk drive before turning the power on or off. 
This will eliminate the possibility of stray bits 
being written on the disk as the system is powered 
up or down. 


Getting Started 


After the computer has been turned on, the floppy 
diskette containing BASIC and the Cromemco Disk 
Operating System (CDOS) must be inserted into disk 
drive A. This is the leftmost disk drive. Start 
with the diskette supplied by Cromemco. The 
diskette should be inserted so that the label faces 
left and the edge with the elongated hole which 
exposes the surface of the diskette is toward the 
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rear of the machine (disk drive). If there is a 
door on the disk drive it must be closed after the 
diskette is inserted. 


Next the RETURN key on the console must be 
depressed several times so that the computer can 
determine the speed at which the console is sending 
characters (baud rate). The computer will respond 
to this by displaying a character on the console 
(called a prompt) which indicates that it is 
waiting for the user to type something. If the 
prompt is a semicolon (;), the user must type B 
(for Boot) followed by a carriage RETURN to load 
CDOS into memory. If the prompt is the letter A 
followed by a period (A.) then the Cromemco Disk 
Operating System (CDOS) has already been loaded 
into memory. 


The terminal must be set up so that it will only 
send BASIC upper case characters. If you are using 
one of the Cromemco 3190 series terminals, depress 
the ALPHA LOCK key so that the red light on the key 
is lit. You will now be in upper case mode. 


In response to the CDOS prompt, type BASIC followed 
by a carriage RETURN. After a few seconds the 
BASIC sign on message will be displayed followed by 
the BASIC prompt (>>). BASIC has now been loaded 
into the computer's memory and is waiting for 
instructions. 


One Very Important Point follows: 


ALL LINES ENTERED IN BASIC MUST BE TERMINATED BY 
DEPRESSING THE CARRIAGE RETURN KEY. 


BASIC will never respond to an instruction, accept 
any input, or complete a command unless it is 
terminated by a carriage RETURN. If BASIC does not 
seem to be responding as you think it should, make 
sure that you have properly terminated the current 
line (with a carriage RETURN). 
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The Command or Immediate Mode 

Whenever the BASIC prompt (>>) is displayed, BASIC 
is in the Immediate Mode. This means that an 
instruction (command) can be entered and BASIC will 
respond immediately after the carriage RETURN is 
depressed. 


The first instruction we will discuss is PRINT. 
PRINT causes BASIC to display the information 
following the word PRINT. Using only the PRINT 
instruction, and the standard Arithmetic Operators 
(+ for addition, - for subtraction, / for division, 
and * for multiplication), BASIC may be used as a 
calculator. 


Instruction Explanation 


PRINT 5 This will PRINT the number 5. 
Since there is nothing 
following the 5 BASIC will add 
a carriage RETURN and LINE FEED 
so that the next item which is 
PRINTed will start in column @ 
of the following line. 


PRINT 7 + 4 This will PRINT the result of 
adding 7 and 4, or ll. 


PRINT "FRED" This will PRINT the word FRED. 
Notice that if a group of 
letters (called a string) are 
to be PRINTed, they must be 
enclosed in quotation marks. 
When a string is enclosed in 

- quotation marks, it is called a 
string literal. Numbers 
(called constants) which are to 
be used in a computation may 
not be enclosed in quotation 


marks. 
PRINT This will PRINT a blank line. 
PRINT 1,2,3,4 This will PRINT the numbers 1 


through 4 in four columns 
across the screen. When commas 
(,) are used to separate items 
in a PRINT list, the items are 
aligned in four columns across 
the console screen. If 
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. semicolons (;) are used, the 
items are displayed with no 
intervening spaces. 


PRINT "ANS. = ";75 This will display ANS. = 75 on 
the console. Notice that a 
blank was included after the 
equal sign in the string 
literal. This blank is 
considered part of the string 
literal, just as any other 
character. 


Next we will discuss variables and the Assignment 
Operator (Instruction). A variable is the name of 
a location in the computer's memory. While the 
name of a variable stays the same, the contents of 
the variable (location) may vary. 


A variable name may be thought of as a label which 
has been affixed to a box. If we are speaking of 
an arithmetic variable, then the box would contain 
a number. The number inside the box is the VALUE 
of the variable. The value of the variable can be 
changed while the name of the variable stays the 
same. Similarly, a string variable would contain a 
string of characters which could include letters, 
spaces, numbers, and any other printable 
characters. This combination of characters would 
be the value of the string variable. 


Arithmetic variable names are composed of either a 
single letter (A-Z) or a single letter followed by 
a single number (8-9). Some examples of arithmetic 
variables are Al, B8, 20, Q4, V, A, etc. 


String variables may use any name which is a legal 
arithmetic variable name, however, a dollar sign 
must immediately follow the name. Some examples of 
string variables are G8$, Y$, PS, T1S, M9S, etc. 


The assignment operator assigns a value to a 
variable. The equal sign (=) is used for this 
purpose. In BASIC, the equal sign can be read as, 
"is assigned the value of". Notice that it does 
not necessarily denote equality. 
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Instruction Explanation 
G$ = "FRED" The value of the string literal 


"FRED" is assigned to the 
string variable named GS, 
Notice that, although the 
string literal "FRED" must be 
enclosed in quotation marks, 
the quotation marks are not 
part of the string variable. 
The quotation marks indicate to 
BASIC that the enclosed 
characters are to be considered 
a string literal. 


PRINT G$ This instruction will display 
the value of G$ on the console. 
If this instruction follows the 
preceding one, FRED will be 
PRINTed on the console 
terminal. 


P4 = 775 The variable named P4 is 
assigned the value of 775. 


P4 = P4 +1 P4 is assigned the value of P4 
a, ks If this instruction 
follows the previous one, P4 
will have the value of 776. 

Qo5$ = " IS NO. " The string variable Q5$ is 
assigne the value of the 
string Titeral " IS NO. ". 

Z7$ = Q5$ The string variable 27S is 


assigned the value of the 
string variable Q5$. 


PRINT G$; Z7$; P4 will print FRED IS NO. 776 
(assuming it follows the above 
assignment instructions). 


An important distinction: The user must be careful 
to distinguish between a string literal and the 
name of an arithmetic variable. The following 
table should help to clarify this difference. 
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Instruction Explanation 


A = 54 The variable named A is 
assigned the value of 54. 


PRINT A This will PRINT the number 54 
which is the value of the 
arithmetic variable A. 


PRINT "A" This will PRINT the letter A 
which is the value of the 
string literal. 


The next instruction we are going to discuss is the 
INPUT instruction. When executed, this instruction 
displays a question mark on the console and waits 
for the user to supply a number or a string. 


Instruction Explanation 


INPUT A This command will display a 
question mark and wait for the 
user to enter a number. The 
number which is entered will be 
assigned to the variable named 
A. 


INPUT QS This command will display a 
question mark and wait for the 
user to enter a string (any 
group of characters, in this 
case up to a maximum of 
eleven). The value of the 
string which is INPUT will be 
assigned to the string variable 
named QS. 


The RUN or Program Execution Mode 


Up to this point, all of our examples have been 
executed as commands or in what is referred to as 
the immediate mode. Each command was executed as 
soon as the carriage RETURN was depressed. Once 
executed, the entire instruction had to be typed 
again in order to be re-executed,. 


Now we shall use these same instructions to write a 
program. A program consists of statements. A 
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statement is. nothing more than an instruction with 
a line number preceding it. Line numbers are also 
called statement numbers; the two terms are 
- interchangeable. The line number indicates to 
BASIC that the instruction is to be stored in 
memory for later execution. A line number is also 
a handy way to refer to a BASIC statement if it 
needs to be changed. 


Let us enter a program: 


>>190 INPUT AS 
>>20@ PRINT AS; " is smart!" 


This program is now current in the User Area. The 
User Area is the BASIC workspace in which a program 
can be written, edited, and run. The LIST command 
displays the contents of the User Area. 


The RUN command causes BASIC to execute the program 
in the User Area. Program execution begins with 
the statement with the lowest line number and 
continues sequentially. 


Now, we can execute the program: 


>>RUN 

? Tom BASIC displays the ? (prompt) 
and the user enters a string. 
Don't forget the carriage 
RETURN at the end of the 
string! 


Tom is smart! BASIC PRINTs the string 
variable (Tom) and the string 
literal ( is smart!). 


**eEND* BASIC tells you that it's done 
with the program, 


>> and that it is ready for 
additional instructions. 


To get a LISTing of your program, type the command 
LIST in response to the BASIC prompt. 


>>LIST 

18@ INPUT AS 

208 PRINT AS;" is smart!" 
>> 
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Activating the System Printer 


The printer (if one is attached to your system) is 
activated by typing control-P. Control-P is typed 
by holding down the CTRL key on your terminal (as 
you would hold the shift key on a typewriter) and 
simultaneously depressing the P key. 


Anytime CTRL-P is typed, the system printer 
automatically echoes any input, output, or LISTing 
which is sent to the console. 


To LIST the program which is current in the User 
Area, enter: 


>>LIST (CTRL-P) (CR) 


on the console. The LISTing will be sent to the 
console as well as the printer. When the LISTing 
has terminated, type CTRL-P before anything else is 
entered. This will ensure that nothing else is 
output to the printer following the LISTing. 


Anytime the printer is on and is echoing the 
console, typing CTRL-P will turn off the printer. 


If CTRL-P is inadvertently typed, and there is no 
System printer, or the printer is off, type a 
second CTRL-P to resume normal operation. If this 
is not done, the system will wait for a printer 
before displaying any additional output on the 
console. 
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7.1.4 Program Editing 


Continuing with the same program, we wish to alter 
a statement. 


To change a line, type it over again. When BASIC 
recognizes that it already has a line with the same 
line number, it will replace the old line with the 
new one. To delete a line, type the line number 
followed by a carriage RETURN. Suppose we wanted 
to change line 208: 


>>200 PRINT A$; " is very smart!!!" 


>>LIST After making the change, we can 
list the program to make sure 
that we changed it properly. 


199 INPUT AS 
208 PRINT AS;" is very smart!!!" 


>> Again, BASIC waits for further 
instructions. 


Suppose that, instead of executing these statements 
only once, we wanted them executed several times. 
We could type RUN each time the program was to be 
executed, or we could add another statement which 
would direct BASIC back to the beginning of the 
program each time it finished PRINTing: 


>>388 GOTO 188 This GOTO tells BASIC to GOTO 
statement number 18080 and 
continue executing from there. 
>>LIST 
190 INPUT AS 
208 PRINT AS;" is very smart!!!" 
380 GOTO 189 


>>RUN 


? Alice Don't forget the carriage 
RETURN! 


Alice is very smart!!! 


? Eileen After it was done with 

statement 2080, statement 300 

told BASIC to go back to 

/ statement 198, which gave us 
Ko another question mark. 
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Eileen is very 


fs 


INSTRUCTION MANUAL 


This could (and would) go on 
forever. This can be avoided 
by depressing the ESCape key 
(appropriately named). On a 
Cromemco terminal this key is 
located on the upper left of 
the keyboard and is marked 
ESC. 


***199 ESCAPE*** 


>> 


BASIC tells you what happened, 
and waits for further 
instructions. 
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7.2 


Example Program One 


Let's write a program to compute a person's age in 
the year 1985. For this program, we will introduce 
two new instructions. The first of these is SCR 
which is short for SCRatch. This instruction 
clears memory of a program or any statements which 
may be in the User Area: 


>>SCR 

>>LIST Nothing will be listed, because 
everything has been SCRatched! 

>> 


The other is AUTOL which is short for AUTOmatic 
Line numbering. This is a convenient feature of 
Cromemco 16K BASIC which allows the programmer to 
concentrate on the program and forget about 
entering line numbers. AUTOL is followed by two 
numbers (called arguments). The first of these 
indicates the first line number, while the second 
indicates the increment between line numbers. In 
the following example, the line numbers are 
automatically typed by BASIC while the program is 
entered by the user: 


>>AUTOL 1698,19 


>>1900 PRINT"Enter the year of your birth: "; 
>>190180 INPUT Y 


>>1920 PRINT"In 1985 you will be ";1985-Y;" years old" 


>>193@ PRINT 
>>1048 GOTO 1968 
>>1850 

>> 


There are several things about this program which 
bear discussion. The first is that the AUTOmatic 
Line numbering mode may be terminated by entering a 
carriage RETURN (our old friend) in response to a 
line number. Line 1928 PRINTs two strings with a 
number in the middle. The number is the result of 
a computation: the numeric variable Y is 
subtracted from the numeric constant 1985. Line 
1838 is included so that there will be a blank line 
PRINTed between examples. 
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LISTing to a Disk File 


The program we have written will stay in memory (in 
the User Area) as long as we don't execute the 
SCRatch command or turn the power off. 


We may write the program to a disk file so that it 
may be retrieved at a later time. Once it has been 
LISTed on the disk, we may SCRatch the user area or 
turn the power off and our program will still be 
safe on the disk. 


The only way a disk file can be destroyed is by 
ERASing it or by writing another file with the same 
name to the disk. In the latter case, the second 
file would be written over the first so that the 
first file would be destroyed. 


The LIST command, as we have been using it, LISTs 
the contents of the User Area to the console. If 
the LIST command is followed by a string literal, 
BASIC will interpret the string literal as a file 
name, and LIST the contents of the user area to 
that file. Assuming that our program is still in 
the User Area, the following command will write the 
program to a file called FIRST. 


>>LIST "FIRST" 


>> 


The disk should come to life, click once or twice, 
and another prompt should appear on the console. 
If BASIC has done your bidding, the DIRectory 
command will reveal a file on the disk called 
FIRST. To get a list of all the files on the disk 
enter the command: 


>> DIR 


BASIC will respond with a list of file names, 
including FIRST. Now you can shut off the computer 
without losing your program. 


Remember to remove the disk before turning the 
power off. It is also a good idea to insert the 
disk only after the power has been turned on. Do 
not turn the power on or off while the disk is 
inserted in the machine. 
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ENTERing from a Disk File 
A program which has been LISTed to a disk file may 
be re-entered by using the ENTER command. 


Before entering any program, whether from a disk 
file, or from the console, it is a good idea to 
SCRatch the User Area. Assuming that we are once 
again (or still) in BASIC, we can give the 
following two commands to clear the User Area and 
enter our program which was saved in the disk file 
FIRST. 


>> SCR 


>> ENTER “FIRST" 


>> 


Our program may now be LISTed, RUN, or modified as 
we desire. 
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Example Program Two 
Let's try another example. First we will type SCR 


to clear the user area, and then AUTOL to start the 
AUTOmatic Line numbering: 


>> SCR 
>> AUTOL 19,19 
Next, type in your first instruction: 


>>18 LET N = 5 


When the program is RUN, this instruction will 
assign a value of 5 to the variable N. BASIC will 
remember this value and it will remain the same 
until redefined by the user or by an algorithm 
within the program. BASIC will also understand the 
statement above without the LET, as: 


>>16 N = 5 


This is called an implied LET and is a 
characteristic of advanced versions of BASIC. 
BASIC will also disregard spacing of characters in 
statement lines. Thus, the statement: 

10 LET N = 5 
is equivalent to the statement: 


18 LET N=5 


At this point, we have the following line on the 
terminal: 


>>AUTOL 168, 18 
>>16 N= 5 


BASIC is waiting for our next instruction. Type 
in: 


>>2@ INPUT A: INPUT B: INPUT C: INPUT Ds: INPUT 


With this long statement line, we have created a 
set of instructions that will ask for five numbers 
(inputs A,B,C,D, and E) when the program is run. 
In 16K BASIC, more that one instruction can be 
associated with a line number. These instructions 
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or 


must be separated by colons. Multi-instruction 
statement lines save memory space. 


Next, we enter the statement: 
>>38@ X = (A+B+C+Dt+E) /N 


This assigns the value of the sum of the five INPUT 
numbers divided by the value of the variable N to 
variable xX, The variable X is therefore the 
average of these five values. We defined N as 5 
previously. If we had not defined N, then it would 
be assumed that N = @. 


Naturally, we'll want to look at X to see what it 
is. We type in: 


>>4@ PRINT X 


which instructs BASIC to print that value of X when 
the program is run. What do we have so far? Our 
program, as listed below, looks ready to run. 


>>AUTOL 18, 18 


>>18 N= 5 

>>26 INPUT A: INPUT B: INPUT C: INPUT D: INPUT 
>>38 X = (A+B+C+D+E) /N 

>>46 PRINT X 


16K BASIC does not require an END or STOP, but it 
is good programming practice to include one. So we 
can add the following statement to our program: 


>>5@ END 


If we wanted to run through the program a number of 
times, finding means for many groups of five 
numbers, we might have entered: 


58 GOTO 19% 


This would instruct BASIC to return to line 10 and 
re-execute the program, finding the mean of five 
new numbers each time. To escape from such a loop, 
or from a program during its execution, press the 
ESCape key on your terminal or teletype keyboard. 


Now let's run the program. After statement line 50 
is typed in we depress the carriage RETURN in 
response to the next line number to get out of the 
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AUTOmatic Line numbering mode. Then we type in: 


>>RUN 


This command instructs the computer to begin 
execution of the program. When the first INPUT 
command in line 2@ is encountered during program 
execution, a question mark (called a prompt) will 
appear on your terminal, as indicated below: 


>>RUN 
? 


This prompt indicates that the computer is waiting 
for you to input a number for the first variable in 
the INPUT statement. We therefore type in: 


ee 


and BASIC responds with: 


?17 
2 


The second prompt indicates that the computer is 
waiting for a value for INPUT B. In fact, we need 
to enter values for the next four INPUT variables. 
Once we input these values and depress the carriage 
RETURN, the computer will complete program 
execution and PRINT out the value of X, as shown 
below: 


Vv 
Vv 
a 
G 
a 


FH ay ed ey oy) oy 
ro) 
© 


***SQ END*** 


Almost instantly, the BASIC program has calculated 
and printed the average of the five numbers we 
input. This average is 17. At this point, we 
might want to do a little formatting to change the 
way in which the results are printed out. We LIST 
the program again to see what we have to work with. 
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>>LIST 


19 N= 5 

20 INPUT A: INPUT B: INPUT C: INPUT D: INPUT E 
30 X = (A+B+C+D+E) /N 

49 PRINT X 

50 END 


We can start by inserting some lines within the 
present text of the program. At any time, lines 
can be inserted between present statements by using 
a number which falls between two line numbers. For 
example, a line numbered 15 will be inserted 
between statement number 18 and statement 20. When 
a program is RUN or LISTed, the new statement lines 
are automatically inserted into the proper space in 
the hierarchy. 


We decide to add spaces between lines to make 
reading easier. We add: 


>>15 PRINT 
>>16 PRINT 
>>35 PRINT 
>>36 PRINT 


Inserting a PRINT instruction in a statement line 
without text to be printed generates a linefeed. 
At this point, you'll want another look at the 
program. BASIC will have sandwiched the new 
statement lines into the old text as shown below: 


>>LIST 


1@ N= 5 

LS PRINT, 

16 PRINT 

28 INPUT A: INPUT B: INPUT C: INPUT D: INPUT E 
38 X = (A+B+C+D+E) /N 

35 PRINT 

36 PRINT 

48 PRINT X 

5@ END 


Now type RUN. According to our program, the 
computer will skip two lines after you type in RUN 
and then wait for you to type in 5 numbers. Once 
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these numbers are input, the program instructs the 
computer to skip two more lines and then PRINT the 
result. This output appears on the terminal as 
follows: 


>>RUN 


ew VU OU OD og) 
bn 
(o>) 


20 
***SQ END*** 


Many more variations may be added. For example, 
the statement: ; 


5 PRINT "A PROGRAM TO CALCULATE THE" 
7 PRINT “AVERAGE OF 5 NUMBERS” 


will give you a title for this program. You might 
also replace line 498 with: 


48 PRINT "THE MEAN OF THESE NUMBERS IS ";X 


If it becomes necessary to enter a line between two 
others whose line numbers are consecutive (say you 
need a line between lines 35 and 36), the RENUMBER 
command can be used to spread the line numbers 
apart. While a program is in the User Area, type 
the command: 


>> RENUMBER 
>> 


and BASIC will assign new line numbers starting 
with 18 and incrementing by 19. 
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7.31 


The SAVE command will write the program which is 
current in the User Area to a disk file. The 
program will be in internal machine format unlike a 
program which is written to disk using the LIST 
command. The LOAD command is to the SAVE command 
what the ENTER command is to the LIST command. 
LOAD allows the user to read a SAVEd file into the 
User Area. Notice that LOAD cannot be used with a 
LISTed file and that ENTER cannot be used with a 
SAVED file. 


The formats of these commands are: 


>>SAVE "SECOND" 
>>LOAD "SECOND" 


When used with larger programs, SAVE and LOAD can 
be significantly faster than LIST and ENTER. Also, 
when the RUN instruction is given with the name of 
a SAVEd file, the specified file will be LOADed and 
RUN with only that one instruction. Programs may 
be chained in this fashion, one calling the next, 
calling the next, etc. 


>>RUN "SECOND" 
or 
9999 RUN "SECOND" 
The execution of either of these instructions will 


cause the SAVEd program SECOND to be LOADed into 
the User Area and execution to begin. 
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7.4 Example Program Three 
Active Bandpass Filter Calculation 


One of the most elementary applications for a 
computer is to use the computer to do calculations 
that can be done on sophisticated hand calculators. 
A program written to perform such calculations can 
be saved and reused as often as required. An 
example of a simple calculation program follows. 
This program allows the user to input data on 
certain parameters associated with the design of an 
active bandpass filter based on a common 
operational amplifier. The program then calculates 
the necessary component values based on the data. 


A BANDPASS 74I-TYPE ACTIVE FILTER 


Cl 


RI C2 


R2 


IN 
1 


e@ 
vt 


NOTE: NO PHASE RELATIONSHIP IMPLIED 
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The first three statement lines of the program are 
as follows. Notice that the at sign (@) is used 
instead of the word PRINT. When a lot of PRINT 
instructions are used, this can facilitate program 
entry. 


18 @ 


26 @"THIS PROGRAM CALCULATES DATA NEEDED TO CONSTRUCT" 
38 @"ACTIVE BANDPASS FILTERS USING 741-TYPE OP-AMPS." 


The principal function of PRINT statements 29 and 
38 is to document the program so that it can be run 
in the future by users who are unfamiliar with it. 
All programmers should be encouraged to document 
programs thoroughly. 


The next step in the program is to request the user 
to input a number of values for various parameters. 
Note that each variable is defined in preceding 
PRINT statements. 


48 @ 
58 @"WHAT IS THE CENTER FREQUENCY OF THE PASS BAND," 
68 @"IN HERTZ (E.G., 4000, 250, 60)"; 

80 INPUT F 

98 @ 

196 @"WHAT IS THE DESIRED GAIN, IN DECIBELS?" 
JIG OM (ESC. Oy Sy 25) 8 
130 INPUT H 
148 @ 

158 @"WHAT IS THE DESIRED Q OF THE FILTER?"; 

170 INPUT Q 
188 @ 
198 @"SELECT A CONVENIENT STARTING VALUE C FOR™ 
195 @"CAPACITORS Cl AND C2." ; 
200 @"IF THE VALUE IS IN PICOFARADS, ENTER THE DATA" 
218 @"IN THE FORMAT: X...E-12. IF THE VALUE IS" 

220 @"IN MICROFARADS, USE THE FORMAT: X...E-6." 
248 INPUT C 


In this schematic formula, Cl and C2 are equal. 
Once a value for C is specified, the resistor 
values can easily be found. The next step then is 
to specify the formulas for each resistor value, as 
indicated below: 


250 @: @: @ 

288 @"RESISTANCE IN OHMS" 

298 @ : @ 

318 LET W=F*2*3.,14159 

328 @ USING"R1 = ###### #44 H##",Q/ (H*¥W*C) 
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338 @ USING"R2 
348 @ USING"R3 
358 @ USING"R4 


HETEEE EEE HEE" ,O/ ( ( (2%0*Q) -H) * (WAC) ) 
HETHEEE EH EEE" , (2*Q) / (WRC) 
HHEEEEEEE HEE" ,2* ((2*Q) / (WRC) ) 


These formulas for Rl, R2, R3, and R4, specify the 
calculations which must be performed to determine 
the various resistances. The final section of the 
program provides a simple routine which allows the 
user to easily re-enter the program and input a new 
set of values. 


368 @ : @ 

388 @"WOULD YOU LIKE TO CALCULATE ANOTHER FILTER?" 
398 @"TYPE Y FOR YES"; 

41@ INPUT AS 

428 @:@: @ 

450 IF A$(®,8)="Y"THEN GOTO 49 

469 END 


If the user does not wish to do another filter 
calculation and consequently types in a string 
starting with a character other than Y, then the 
program ends and BASIC returns to the immediate or 
command mode. 


Note that the variables in this program are given 
letter symbols that correspond to their function. 
For example, it is surely easier to remember that 
the Q of the filter is represented by variable Q 
than by variable L. Similarly the variable for 
capacitors Cl and C2 is C, rather than X or Y. 
These may seem to be intuitively obvious at this 
level of complexity, but as the program complexity 
increases the assignment of appropriate variable 
names becomes much more difficult. 


Once the program has been input, we can instruct 


the computer to execute the program by typing in 
RUN. The following output will be generated: 
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>>RUN 


THIS PROGRAM CALCULATES DATA NEEDED TO CONSTRUCT 
ACTIVE BANDPASS FILTERS USING 741-TYPE OP-AMPS. 


WHAT IS THE CENTER FREQUENCY OF THE PASS BAND, 
IN HERTZ (E.G., 4000, 250, 68)? 1900 


WHAT IS THE DESIRED GAIN, IN DECIBELS 
(E.G., 8, 5, 25)? 20 


WHAT IS THE DESIRED Q OF THE FILTER?? 199 


SELECT A CONVENIENT STARTING VALUE C FOR 
CAPACITORS Cl AND C2. 

IF THE VALUE IS IN PICOFARADS, ENTER THE DATA 
IN THE FORMAT: X...E-12. IF THE VALUE IS 

IN MICROFARADS USE THE FORMAT: X...E-6. 

? 1.0E-6 


RESISTANCE IN OHMS 


Rl = 795.775 
R2 = 005 
R3 = 31831.916 
R4 = 63662.631 


WOULD YOU LIKE TO CALCULATE ANOTHER FILTER? 
TYPE Y FOR YES? NO 


***469 END*** 
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Example Program Four 


Statistical Analysis Program 


Another common use for a computer is the 
calculation of statistics for a given set of data, 
particularly very large data sets. The program 
listed below calculates six common statistics for a 
given data set. 


One of the first steps that must be taken in any 
program is the assignment of variable names to any 
variables which will appear in the program. The 


. following program involves six functions which will 


require variable names. These functions and the 
corresponding variable name used in the program to 
represent each function are listed below: 


Variable Name Function 
N Number of elements in a data set 
S Sum of the numbers in a data set 
T Sum squares 
M Mean 
Vv Variance 
D Standard Deviation 


We instruct the computer to keep track of the 
number of elements in a data set by including a 
counter variable in the program. In this case, the 
counter variable is N. To count the number of 
elements, we set N equal to @ initially and then 
increment N by 1 each time a new element in the 
data set is READ. Consequently, the first 
statement lines are used to initialize (set equal 
to ®) certain variables. 


19 LET N=@ 
20 LET S=9 
38 LET T= 


Note that S and T are also set equal to @. This 
will allow us to sum data elements and to sum the 
Squares of data elements as the elements are READ. 
We can now begin reading in data elements. 
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4@ READ X 

5@ IF X=999 THEN GOTO 189 
68 LET N=N+1 

76 LET S=S+X 

80 LET T=T+ (X*X) 

98 GOTO 49 

160 IF N=8 THEN GOTO 380 


The value 999 is used as a dummy value to indicate 
the end of a data set. The program continues to 
read in data and increment the values of the 
variables N, S, and T until a 999 is read from a 
DATA statement. Once a 999 value is read in, 
program control is transferred to statement line 
100. 


Statement line 119 through 138 compute the 
remaining three statistics. 


118 LET M=S/N 
120 LET V=(N*T-S*S) /N/(N-1) 
138 LET D=SOR (V) 


Next we include a set of titles to be printed out 
with each statistic. 


149 PRINT 

15@ PRINT 

168 PRINT "NUMBER","SUM","SUM SQUARES" 

176 PRINT N,S,T 

18% PRINT 

199 PRINT "MEAN","VARIANCE","STANDARD DEVIATION" 
200 PRINT M,V,D 

210 PRINT 

228 PRINT 


At this point, all the statistics have been 
calculated for a set of data. Program control is 
therefore returned to the first statement in the 
program so that the next set of data can be read. 


25@ GOTO 1 
268 DATA 1 
278 DATA 2 
280 DATA 1 
298 DATA 9 
309 END 


Once this program has been entered, edited, and 
examined for errors, it can be RUN. The results 
are as follows: 
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>>RUN 
NUMBER 
18 
MEAN 
5.5 
NUMBER 
6 

MEAN 
2.55 
NUMBER 
8 


MEAN 
18.2125 


SUM 
55 


VARIANCE 
9.1666666666666 
SUM 

15.3 

VARIANCE 

0.835 

SUM 

145.7 


VARIANCE 
201.64696428571 


**%390 END*** 
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SUM SQUARES 
385 


STANDARD DEVIATION 
3.9276583548975 
SUM SQUARES 

39.19 

STANDARD DEVIATION 
G.18798286933869 
SUM SQUARES 
4965.09 


STANDARD DEVIATION 
14.288245219211 
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7.6 Example Program Five 


18 REM This is a program which demonstrates 
286 REM the implementation of a Random 

3@ REM Access File. 

4@ REM 

58 REM The program creates and opens a file, writes 
6@ REM 51 records sequentially, allows 

79 REM the user to repeatedly select any 

8@ REM of the 51 records at random, and 

98 REM then closes and erases the file. 
180 REM 

118 DIM AS (21) 

128 INTEGER I,J 

138 CREATE" RANDTEST" 
148 OPEN\1,24\"RANDTEST" 

158 ON ERROR GOTO 229 

168 ON ESC GOTO 328 

176 PRINT"Pause, writing file RANDTEST" 
188 FOR I= TO 5G 
198 PUT\1\"This is record number ",I 
2006 NEXT I 

218 PRINT 
228 PRINT"Which record would you like to see?" 
230 PRINT"Enter record number (8-50) or -1 to stop: "; 
248 INPUT I 

250 IF I<@ THEN GOTO 329 
260 IF I>5@ THEN GOTO 219 

278 GET\1,I\AS (-1) ,J 

289 PRINT"Contents of record number ";I;" is:" 
298 PRINT AS;J 
308 PRINT 
318 GOTO 239 
328 CLOSE 

338 ERASE"RANDTEST" 
348 PRINT : PRINT : PRINT"File RANDTEST erased" 
358 END 


On line 138, the file RANDTEST is CREATEd. If a 
file does not exist in the directory, it must be 
CREATEG before it can be OPENed for reading or 
writing. The file is OPENed on line 14@ with a 
record length of 24 bytes which are allocated as 
follows: 


22 bytes for the string, and 
2 bytes for an integer 


Line 15@ ensures that any run time error (such as 
an invalid user response) will return control to 
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the user within the program and will not cause the 
program to terminate abnormally. Because many 
programs can be terminated by the use of the ESCape 
key, statement 168 is included in this program. 
The program will still be terminated by depressing 
the ESCape key, but the active file will be closed 
and deleted before control is returned to the user. 


Statements 188 through 20@ write out 51 records, 
each containing (for identification) the record 
number in addition to a string. Because no record 
numbers are specified, the records are written 
sequentially starting with record zero. 


The user is then asked for the number of the record 
to be displayed and on line 278 the record whose 
number is specified by the variable I is retrieved. 
Because the records which were written to this file 
each contained a 22 character string followed by an 
integer number, they must be read back into 
variables of the same type and length. 


The user is allowed to view as many records as are 
desired. Entering a negative one (-1) when asked 
for a record number will cause the file to be 
CLOSEG and ERASEd and program execution to be 
terminated. 
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INSTRUCTIONS AND FUNCTIONS 


The following chapters describe the instruction set 
of Cromemco's 16K Extended BASIC. Although several 
of the instructions perform a variety of tasks, an 
attempt has been made to group the instructions and 
functions into logical divisions. 


Program Development Instructions encompass those 
instructions which are most frequently used by a 
programmer while developing or modifying programs. 
Documentation covers the REMark instruction and 
Assignment covers the use of the Assignment 
Operator in the LET and MAT instructions. 


The Initialization chapter describes those 
instructions which set and change the type of 
numeric representation which is used in a program 
as well as the DIMension instruction. 


Control Structures are the instructions which 
control the logical flow of a program. This 
includes conditional and unconditional transfer of 
control, loops, and program termination. 


The Input/Output chapter begins with instructions 
which may be used to transfer information to and 
from the console terminal as well as those 
instructions which are used to read DATA statements 
from the program itself. A discussion of the 
theory and use of Data Files precedes the 
definition of the various 16K BASIC instructions 
which allow the user to control and access files. 


The next chapter covers Arithmetic, Trigonometric, 
Programmer Defined, and String Functions. 


The System and File Status chapter shows the user 
how to determine and change various system statuses 
and parameters. 


Then Machine Level Instructions which allow the 
user to interact with Assembly Language subroutines 
and Fatal and Non-fatal Error Messages are 
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discussed. 


The final chapters include a Glossary of words 
which may be unfamiliar to the novice, and an 
Appendix which describes various aspects of the 


Language which may be of interest to the advanced 
user. 
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instruction: AUTOmatic Line numbering 


where: 


format: AUTOL n,m 


is the starting line number. 


is the line number increment. 


The AUTOL command provides automatic statement line 
numbering so that the user does not have to enter a 
line number for each line when entering a program. 


Notes: 


1. The automatic generation of line numbers may 
be terminated by pressing the ESCape or 
carriage RETURN key when the user is prompted 
for the next line. 


Example: 


>>AUTOL 189,18 


>>108 
>>118 
>>120 


ERROR 
>>129 
>>139 
>>146 
>>150 
>>168 
>>170 
>>189 
>> 


REM ALL LINE NUMBERS IN THIS 
REM EXAMPLE ARE GENERATED BY BASIC. 
I,=5 

$ 
1 -- SYNTAX 
I=5 
REM NOTICE THAT AFTER A SYNTAX ERROR 
REM AUTOL WILL RE-PROMPT SO THAT 
REM THE ERROR CAN BE CORRECTED. 
PRINT I 
END 
(carriage RETURN) 
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instruction: BYE 
format: {Ln] BYE 


where: 
Ln is an optional number. 


The BYE instruction is used to exit from BASIC and 


return to CDOS on disk systems or MONITOR on non- 
disk systems. 


Notes: 
l. For disk systems, after the BYE command is 
typed in, the computer will respond with the 


current disk drive. 


26 For non-disk systems, BYE goes to location 
E@98H in the MONITOR. 


3. See the Appendix, Areas of User Interest, for 
information on how to cause BYE to jump to 
another address. 


4. BYE will close all files which are OPEN at the 
time the instruction is executed. 
Example: 
>>BYE 
B. 
In this example, the user has typed the BYE 
command. The next prompt displayed (B.) indicates 


that the user is in CDOS and that B is the current 
drive. 
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instruction: DELETE 
format: [Ln] DELETE n 


{Ln] DELETE n, m 


where: 
Ln is an optional line number. 
n is the statement number of the 
first or only line to be 
DELETEd. 
m is a statement number. If used, 


it indicates that lines numbered 
n through m are to be DELETEd. 


The DELETE instruction is used to remove statement 
lines from the program currently in the User Area. 


Notes: 


. Ls The DELETE instruction must be the last (or 
( only) instruction on a line. 


2. The DELETE instruction must have at least one 
argument. 


Example: 
>>LIST 


1@ INPUT A,B,C 
28 D = A+BtC 
30 PRINT A 

49 PRINT B 

5@ PRINT C 

6@ PRINT D 

70 END 


>>DELETE 368,59 
>>LIST 


19 INPUT A,B,C 
26 D = A+B+C 
68 PRINT D 

7@ END 


a Here the DELETE command removes lines 3@ through 598 
C from the program. 
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command: DIRectory 
format: DIR 
DIR svar 


where: 
Svar is a string variable or a string 
literal file reference. 


The DIR command corresponds to the CDOS DIR command 
(see the CDOS User's Manual for a full 
description). The DIR command lists disk files 
giving size (in K-bytes) and number of extents. If 
the optional file reference is used, it must be 
enclosed in quotation marks (string literal) or 
else must be a valid string variable. 


Examples: 


DIR will list all files on the 
current disk. 


DIR "“A:*,*" will list all files on drive A. 

DIR "*,SAV" will list all files on the 
current disk with the extension 
SAV. 
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instruction: ENTER 
format: {Ln] ENTER svar 


where: 
Ln is an optional line number. 


Svar is a string variable or string 
literal file reference. 


The ENTER instruction is used to ENTER a BASIC 
program (in ASCII format) from a disk file or other 
external device into the User Area. 


Notes: 


Ls ENTER will read a LISTed program into the User 
Area. ENTER will not read a SAVEd file. 


2. ENTER does not delete statement lines from the 
program which is currently in the User Area. 
ENTER does replace lines in the current 
program with lines from the file being ENTERed 
if the line numbers are the same. 


3. Efficient use of memory following an overlay 
results if the ENTERed program, to as great an 
extent as is possible, replaces lines in the 
current program and does not add new line 
numbers. 


4. The ASCII ESCape character (1BH) or CTRL-Z 
(1AH) are used as the end of file mark by 
BASIC. ENTER looks for either of these 


characters to determine the end of the 
program. 
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instruction: LIST 
format: {Ln] LIST 
[Ln] LIST n 
{Ln] LIST n,m 
{Ln] LIST svar 
[Ln] LIST svar,n 
{Ln] LIST svar,n,m 


where: 
Ln is an optional line number. 


svar is a optional string variable or 
a string literal file reference 
denoting the destination of the 
LISTing. If omitted, the 
LISTing will go to the console. 


n is the line number of the first 
line to be LISTed. If omitted, 
the entire program will be 
LISTed. 


m is the line number of the last 
line to be LISTed. If omitted, 
the program will be listed 
through the last line. 


The LIST instruction is used to LIST one or more 
statement lines from the User Area to the console, 
a disk file, or another file device in ASCII 
format. The instruction may be used to output an 
entire program, a block of statement lines within a 
program, or a Single statement line. The formats 
of LIST which do not use svar will direct the 
output to the console. 


Notes: 

A A program which has been LISTed to a disk can 
be read back into the User Area using the 
ENTER instruction. It can not be read back 
using LOAD or RUN. 

2. LISTed files are compatible between different 
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versions of Cromemco 16K Extended BASIC as 
well as different versions and sizes of the 
Cromemco Disk Operating System (CDOS). SAVEd 


files are not necessarily compatible in this 
manner, 


The ASCII ESCape character (1BH) is used as 
the end of file mark by BASIC. LIST outputs 
this character at the end of a program which 
is sent to the disk. 
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instruction: LOAD 


format: [Ln] LOAD svar 


where: 


Ln is an optional line number. 


svar is a string variable or string 
literal file reference. 


The LOAD instruction is used to LOAD a BASIC 
program (in internal machine format) from a disk 
file into the User Area. 


Notes: 


l. 


LOAD will read a SAVEd program into the User 
Area. The program must have been SAVEd under 
the version of BASIC and the version and size 
of the Cromemco Disk Operating System under 
which BASIC is currently being run. 


LISTed files are compatible between different 
versions of Cromemco 16K Extended BASIC as 
well as different versions and sizes of CDOS; 
SAVEdG files are not. 


The LOAD instruction resets (clears) all 
variables, string variables, and matrices. 


LOAD resets the trigonometric mode to RADians. 
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instruction: RENUMBER 
format: RENUMBER 
RENUMBER m 
RENUMBER m,n 
RENUMBER m,n,b 
RENUMBER m,n,b,e 


where: 


m is the starting line number 
the RENUMBERed program. 


n is the line number increment in 
the RENUMBERed program. 


b is the first existing 
number to be RENUMBERed. 


e is the last existing line number 


to be RENUMBERed. 


The RENUMBER instruction alters the statement 


numbers in the current program. 


Notes: 


ie The default value for the RENUMBER instruction 
is a starting line number (m) of 18 and an 


increment value (n) of 10. 


2. If only the first parameter (m) 


is specified, 


the second parameter (n) assumes the same 


value. In the example below, 


the command 


RENUMBER 1880 is equivalent to the command 


RENUMBER 199,109. 


3. The RENUMBER instruction alters line numbers 
imbedded in the entire program in GOTO, GOSUB, 
and IF-THEN statements to conform to the 
RENUMBERed statements. This will affect a 


line which is not RENUMBERed 


if the line 


contains a reference to a RENUMBERed line. 


4. RENUMBER can not normally be used to re-order 
or rearrange sections of a program relative to 
other sections. If line numbers are LISTed 
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out of order after the RENUMBER instruction is 
given, follow the procedure in the following 
note (5a-d) to rearrange the lines into 
numeric order. 


5. The RENUMBER command will include DELETED 
statement numbers in the sequence of 
renumbered statements. If this presents a 
problem (such as one or more statement numbers 
being omitted) the following procedure will 
correct the problem: 


a) LIST the program (do not SAVE it) to a 
temporary disk file. 


b) SCRatch the User Area. 


c) ENTER the temporary disk file. 


d) RENUMBER as desired. 


Examples: 
>>LIST : 


11 INPUT A 
24 INPUT B 
37 PRINT A*B 
5@ GOTO 11 
63 END 


>>RENUMBER (default parameters are 19,10) 
>>LIST 


19 INPUT A 
2@ INPUT B 
38 PRINT A*B 
4% GOTO 16 
58 END 


>>RENUMBER 1900 (if n is not specified, n = m) 
>>LIST 

108 INPUT A 

208 INPUT B 

390 PRINT A*B 


468 GOTO 100 i 
508 END : 
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>>RENUMBER 160,19 


>>LIST 
196 INPUT A 
119 INPUT B 
128 PRINT A*B 
138 GOTO 188 
1498 END 


>>RENUMBER 1900,150,129 


>>LIST 


10@ 
11@ 
18060 
1158 
130 


INPUT A 
INPUT B 
PRINT A*B 
GOTO 100 
END 


>>RENUMBER 1696,1,119,1159 


>>LIST 


196 
1900 
1661 
1802 
1386 


INPUT A 
INPUT B 
PRINT A*B 
GOTO 198 
END 
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instruction: RUN 
format: {Ln] RUN 
{Ln] RUN svar 


wheres: 
Ln is an optional line number. 


svar is a string variable or string 
literal file reference. 


The RUN instruction instructs the computer to 
execute a program starting at the lowest numbered 
line. 


If svar is omitted, the program which is current in 
the User Area is executed. 


If svar is included, it must be the name of a SAVEd 
program. This program will be LOADed into the User 
Area and executed. 


Notes; 


1. The RUN instruction, if given with a file 
reference, must reference a program which has 
been SAVEd under the version of BASIC and the 
version and size of the Cromemco Disk 
Operating System (CDOS) which is currently 
being used. 


LISTed files are compatible between different 
versions of Cromemco 16K Extended BASIC as 
well as different versions and sizes of CDOS; 
SAVEd files are not. 


2. The RUN instruction resets or clears all 
variables, string variables, and matrices. 


3. RUN sets the trigonometric mode to RADians. 


4. RUN resets ON ERROR and ON ESCAPE instructions 
to their default modes. This means that run- 
time non-fatal errors as well as the use of 
the ESCape key will cause a running program to 
abort and BASIC to display an error message. 


5. RUN sets the variable mode to that which was 
last specified. The default mode is Long 
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Floating Point. Refer to the Appendix, Areas 
of User Interest, if it is necessary to change 
the default mode. 


181 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 
8. Program Development Instructions 


instruction: SAVE 
format: [Ln] SAVE svar 


where: 
Ln is an optional line number. 


svar is a string variable or string 
literal file reference. 


The SAVE instruction is used to SAVE the current 


program on a disk or other file device in internal 
machine format. 


Note: 


is A program which has been SAVEd on a disk file 
can be read back using the LOAD or RUN 
instructions. A SAVEd program can only be 
LOADed or RUN with the same version of BASIC 
and the same version and size of CDOS it was 
SAVEd under. 
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instruction: SCRatch 
format: {Ln] SCRatch 


where: 


Ln is an optional line number. 


The SCRatch instruction deletes the current program 


from the User Area. 


Notes: 


l. The programmer should keep in mind that the 
SCRatch command erases everything in the user 
work space and that SCRatched programs cannot 


be recovered. 


2. Once the work space has been cleared, the user 
may input a new program or access a SAVEd or 
LISTed program which has been stored on disk. 


3. SCRatch sets the trigonometric mode 
RADians. 
4. SCRatch resets the variable mode to 


Mode. 


5. SCRatch does not reset the ECHO or ESCape 


mode. 


6. SCRatch closes all open files 


performing the actual SCRatch. 


instruction. 
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Example: 
>>LIST 
18 xX=4 
208 INPUT Y 
38 Z=X*2+Y 


49 PRINT Z 
5@ END 


>>SCR 
>>LIST 
>> 


In the above example, all statement lines are 
deleted from memory. The user can now input a new 
program. 
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instruction: TRACE 
format: [Ln] TRACE 


where: 
Ln is an optional line number. 


The TRACE instruction sets the TRACE mode so that 
the user can follow the execution of a program line 
by line. When in the TRACE mode BASIC will list 
the line number of each statement being executed. 
Statement line numbers are listed in angle 
brackets. 


Example: 
>>LIST 


1@ TRACE 
28 INPUT X 
38 PRINT"THIS IS ";X 
. 49 LET Y=X+1 
é 59 PRINT Y 
‘ 68 END 


>>RUN 

<20> 

? 10 

<30> 

THIS IS 19 
<48> 

<50> 

11 

<60> 

*kKKGQ END*** 
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instruction: No TRACE 


format: {Ln] NTRACE 


where: 
Ln is an optional line number. 


The NTRACE instruction resets the TRACE mode _ so 


that statement numbers are not printed during 
program execution. 
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instruction: REM 
format: [Ln] REM text 


where: 
Ln is an optional line number. 


text is any string of characters. 


The REM instruction is used to insert remarks or 
comments in a program. 


Notes: 


ds REM statements included in a BASIC program are 
ignored when the program is executed but are 
output exactly as entered when the program is 
LISTed. 


26 REM statements occupy space in the User Area. 
With some long programs, or those with large 
lists or matrices, it may be necessary to 
minimize the use of REM statements in order to 
accommodate the program. 


3 Any grammatical or typing mistakes which are 
made when inputting a REM statement will not 
generate an error message and will be output 


precisely as they appear in the statement 
line. 


4. The programmer is encouraged to use REM 
statements liberally throughout a program to 
describe program operation. These remarks can 
be particularly helpful to any one who wishes 
to use or modify a program written by another 
person. 


5. Multiple spaces in a REM statement consume no 
more user area than a single space does. 
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instruction: LET 
format: [Ln] LET var = exp 
or 
{Ln] var = exp 


where: 
Ln is an optional line number. 


var is a numeric or string variable 
or a reference to an element of 
a matrix. 


exp is the value to be assigned to 
var. It may be any expression, 
variable, constant, function, 
string variable, or literal. 


The LET instruction is used to assign a value to a 
given numeric variable, string variable, or element 
of a matrix. The equal sign (=) is called the 
assignment operator. Refer to section 6.2. 


Notes: 


ds BASIC is designed to allow the user to assign 
values to variables without entering LET each 
time. This capability is called implied LET. 


26 When a string variable is used with’a LET 
instruction, the portion of the string which 
is referenced is set equal to null characters 
before the source is moved into the string 
variable. The whole string is referenced if 
no subscripts follow the string variable, 
while various substrings may be referenced by 
the use of subscripts. Refer to section 
5.2.3, Referencing String Variables, for a 
complete discussion of the subject. The LET 
instruction will not move more characters than 
can be accepted by the destination string or 
substring which is being referenced. 


3. In BASIC, the equal sign is also used as a 
relational operator. Refer to section 63. 


4. String variables, functions, or literals may 
only be assigned to string variables while any 
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expression or function yielding a numeric 
result may only be assigned to a numeric 
variable. 


LET and implied LET instructions execute with 
equal speed. 


Examples: 


LET 
LET 
LET 
LET 
LET 


LET 


Equivalent Implied 


Instructions LET Instructions 
A = 45 A = 45 

B=A + 10 B=A + 16 

AS = "16K BASIC" A$ = "16K BASIC" 
X=Y+h ye: Sl ae © 

G = Q(186,5) ~G = Q(10,5) 
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instruction: MATrix 
format: MAT M = aexp 
where: 
aexp is an arithmetic expression, 
variable, or constant. 
The MAT instruction is used to set all elements in 


a matrix (M) equal to the value of the arithmetic 
expression (aexp). 


Notes: 
l. Matrix M must be explicitly dimensioned. 
2. This instruction is not in the instruction set 


of STAND ALONE BASIC. 


Example: 
( >>LIST 


19 DIM A(4) 

20 READ A(1),A(2),A(3),A(4) 
30 DATA 20,21,22,23 

49 PRINT A(1),A(2),A(3),A(4) 


58 MAT A= 

68 PRINT A(1),A(2),A(3),A(4) 

78 MAT A=1 

828 PRINT A(1),A(2),A(3),A(4) 

98 END 
>>RUN 
20 21 22 23 
8 8 1) 1) 
1 1 1 1 


***KOQ END*** 
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instruction: DEGree 
format: {Ln] DEG 


where: 


Ln is an optional line number. 


The DEG instruction sets the trigonometric 


calculation mode to DEGree. 


Note: 


1. RUN, SCRatch, and LOAD will automatically 
reset the trigonometric calculation mode to 


RADian. 
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instruction: DIM 
format: [Ln] DIM MS$(aexp-1) 
[Ln] DIM M(aexp-1) 
[Ln] DIM M(aexp-1,aexp-2) 


[Ln] DIM M(aexp-1,aexp-2,aexp-3) 


where: 


Ln is an optional line number. 
M is a numeric matrix variable. 
MS is a string variable. 


aexpl-3 are arithmetic expressions, 
variables or constants. 


The DIM instruction is used to define the size of a 
matrix or a string variable. Cromemco BASIC 
permits the user to define one, two, or three 
dimensional matrices. 


Notes: 


l. 


A DIMensioned numeric matrix variable can have 
the same name as any other numeric variable. 
A DIMensioned string variable must have the 
name of a string variable. Refer to sections 
de lel and 5.2.1. 


If a matrix or string variable is not 
specifically dimensioned in a program, the 
default value of 18 (11 elements, numbered @ 
through 19) will be automatically assigned to 
a singly subscripted matrix or string 
variable. Doubly and triply subscripted 
matrices will generate an error message if not 
explicitly dimensioned. 


The maximum size of any matrix is only 
restricted by the amount of available memory. 
Any single dimension may not exceed 16382. 


The dimension of a string variable may not 
exceed 32766. 


The first element in a matrix is numbered @ 
(zero indexing). 
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instruction: IMODE 
format: {Ln] IMODE 


wheres: 
Ln is an optional line number. 


The IMODE instruction changes the default mode of 
all variables to the Integer mode. 


Notes: 


le This instruction takes effect only after the 
execution of a RUN instruction after the IMODE 
instruction has been given. See the following 
example. 


2. Integer variables occupy 2 bytes and must be 
within the range +32767 to -32768. 


3. This instruction will be overridden by the 
LONG and SHORT instructions. 


Example: 
1 IMODE : X=2.5 : IF X=2.5 THEN RUN 


This line, appearing as the first line of a 
program, will ensure that the interpreter is in the 
integer mode. If the line is encountered while the 
interpreter is not in the integer mode, the IMODE 
instruction will be given, X will be set equal to 
2.5 (a non integer number), and if X=2.5 (as will 
be the case if SFMODE or LFMODE are current) the 
RUN instruction will be executed. Program 
execution will then begin over again, this time the 
RUN instruction will be given after the IMODE 
instruction and the current mode will be integer. 
When the value 2.5 is assigned to X, X will be an 
integer variable so that 2.5 will be rounded and X 
will have the value of 3. Then X=2.5 will be false 
and control will be transferred to the next line. 
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instruction: 
format: 


where: 
Ln 


Xx 


INTEGER 


{Ln] INTEGER A, B(X),.-. 


is an optional line number. 
is a scalar variable 
is a matrix 


is an optional dimension 


The INTEGER instruction is used to declare a given 
variable as INTEGER. 


Notes: 


l. DIMensioning may be done via the INTEGER 


instruction. 


2. The INTEGER instruction must appear before the 
variable is referenced for the first time. 


3. Integer variables occupy 2 bytes and must be 
within the range +32767 to -32768. 


4. This instruction overrides the SFMODE and 
LFMODE instructions. 
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Ll. 


Initialization Instructions 


instruction: LFMODE 
format: [Ln] LFMODE 


where: 
Ln is an optional line number. 


The LFMODE instruction is used to set all variables 
within a program to the Long Floating Point mode. 


Notes: 


1. This is the standard default mode for all 
variables and arithmetic operations. 


2. This instruction takes effect only after the 
execution of a RUN instruction after the 
LFMODE instruction has been given. See the 
following example. 


3. Long Floating Point variables occupy 8 bytes 
and must be within the range +9.99E+62 to 
+9.99E-65. They have an accuracy of 14 
digits. 


4. This instruction will be overridden by the 
INTEGER and SHORT instructions. 


5. See the Appendix, Areas of User Interest, if 
it is necessary to change the default mode. 


Example: 
1 LFMODE : X=@.12345678 : IF X<>@.12345678 THEN RUN 


This line, appearing as the first line of a 
program, will ensure that the interpreter is in the 
Long Floating Point mode. If the line is 
encountered while the interpreter is not in the 
Long Floating Point mode, the LFMODE instruction 
will be given, X will be set equal to 9.12345678 (a 
number which cannot be represented in either Short 
Floating Point or Integer modes), and if X does not 
equal @.12345678 (as will be the case if SFMODE or 
IMODE are current) the RUN instruction will be 
executed. Program execution will then begin over 
again, this time the RUN instruction will be given 


after the LFMODE instruction and the current mode 


will be Long Floating Point. When the value 
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@.12345678 is assigned to X, X will be a Long 
Floating Point variable with the value of 
8@.12345678. Then X<>9.12345678 will be false and 
control will be transferred to the next line. 
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instruction: LONG 


format: [Ln] LONG A, B(X),... 


wheres 
Ln is an optional line number. 
A is a scalar variable. 
B is a matrix. 
X is an optional dimension. 
The LONG instruction is used to set a given 


variable to the Long Floating Point mode. 


Notes: 

l. DIMensioning may be done via the LONG 
instruction. 

2. The LONG instruction must appear before the 
variable is referenced for the first time. 

3% Long Floating Point variables occupy 8 bytes, 
have an accuracy of 14 digits, and must be 
within the range +9.99E+62 to +9.99E-65. 

4. This instruction overrides the IMODE and SFMODE 


instructions. 
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instruction: RADian 
format: {Ln] RAD 


where: 
Ln is an optional line number. 


The RAD instruction sets the RADian mode for 
trigonometric calculations. 


Note: 


1. SCRatch, RUN, and LOAD will automatically 
reset the trigonometric mode to RADian. 
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ll. 


Initialization Instructions 


instruction: SFMODE 
format: {Ln] SFMODE 


where: 
Ln is an optional line number. 


The SFMODE instruction is used to set all variables 
within a program to the Short Floating Point mode. 


Notes: 


Ls This instruction takes effect only after the 
execution of a RUN instruction after the 
SFMODE instruction has been given. See the 
following example. 


2. Short Floating Point variables occupy 4 bytes, 
have an accuracy of 6 digits, and must be 
within the range +9.99E+62 to +9.99E-65. 


3% This instruction will be overridden by the 
LONG and INTEGER instructions. 


Example: 
1 SFMODE : X=@.98000001 : IF X<>@.9 THEN RUN 


This line, appearing as the first line of a 
program, will ensure that the interpreter is in the 
Short Floating Point mode. If the line is 
encountered while the interpreter is not in the 
Short Floating Point mode, the SFMODE instruction 
will be given, X will be set equal to 9.90886001 
and if X is not equal to @.9 (as will be the case 
if IMODE or LFMODE are current) the RUN instruction 
will be executed. Program execution will then 
begin over again, this time the RUN instruction 
will have been given after the SFMODE instruction 
and the current mode will be Short Floating Point. 
When the value 9.99990001 is assigned to X, X will 
be a Short Floating Point variable so that 
@.9090000901 will be rounded and X will have the 
value of 96.9. Then X<>@.9 will be false and 
control will be transferred to the next line. 
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instruction: SHORT 


format: [Ln] SHORT A, B(X),-.-<.- 


where: 


Ln is an optional line number. 
A is a scalar variable. 

B is a matrix. 

X is an optional dimension. 


The SHORT instruction is used to set a given 
variable to the Short Floating Point mode. 


Notes: 

bs DIMensioning may be done via the SHORT 
instruction. 

25 The SHORT instruction must appear before the 
variable is referenced for the first time. 

3% Short Floating Point variables occupy 4 bytes, 
have an accuracy of 6 digits, and must be 
within the range +9.99+62 to +9.99E-65. 

4. This instruction overrides the IMODE and 


LFMODE instructions. 
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12. 


The 


command: CONtinue 


format: CON 


CONtinue command CONtinues program execution 


after a program is interrupted by a STOP statement, 
a program error, or pressing the ESCape key. 


Notes: 


1. 


Program execution will commence at the line 
following the statement at which the program 
stopped. 


If program execution stopped because of a 
program error, the error can be corrected and 
the CON command used to continue execution 
from the line following the one where the 
error occurred. 


If the user wishes to re-execute the line in 
error, GOTO (aS a command) should be used. 
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12. 


Control Structure Instructions 


statement: END 


format: Ln END 


where: 
Ln ls a line number. 


The END statement halts program execution and 
causes BASIC to return to the command mode. 


Notes: 


1. Unlike the STOP statement, program execution 
may not be CONtinued after an END statement 
has been executed. 


2. Upon execution of the END statement, BASIC 
displays a message on the console indicating 
the line number of the END statement which 
caused the program to halt. 


Example: 


>>LIST 


188 PRINT “Tomorrow and tomorrow and tomorrow..." 
288 END 


>>RUN 


Tomorrow and tomorrow and tomorrow... 
**KE200 END*** 
>> 
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instruction: FOR...NEXT 


where: 


format: [Ln] FOR avar=aexpl TO aexp2 [STEP aexp3] 


[program instructions] 


[Ln] NEXT avar 


Ln are optional line numbers. 


avar is a non-subscripted numeric 
variable. This is the index 
variable. 


aexpl-3 are arithmetic expressions, 
variables, or constants. They 
may not be string literals or 
string variables. These are the 
FOR...NEXT loop parameters. 


aexp-l is the initial value. 
aexp-2 is the final value. 
aexp-3 is the step value. 


The FOR...-NEXT instructions are used to repeat a 
part of a BASIC program a number of times. During 
the execution of a FOR...NEXT loop, an index (xX) is 
maintained. When this index becomes equal to (or 


greater 


than, or less than) the final value 


(aexp-3), control is transferred to the instruction 
following the NEXT instruction. 


Notes; 


1. 


The following sequence defines the execution 
of a FOR...NEXT loop: 


A. 


The expressions aexp-l, aexp-2, and aexp- 
3 are evaluated. If aexp-3 is omitted it 
is given a value of +1 (if the STEP value 
is not specified it is assumed to be +1). 


The index variable (avar) is set equal to 
the initial value (aexp-l). 


The instructions following the FOR and 
preceding the NEXT are executed. 


125 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 
12. Control Structure Instructions 


D. The step value is added to the 
variable (avar = avar + aexp-3). 


E. If the STEP value (aexp-3) 
and the index variable (avar) 


instruction. 


If the STEP value (aexp-3) 
and the index variable (avar) 


instruction. | 


Otherwise execution of the loop continues 


with C above. 


2. The FOR instruction must be 


instruction on a line. It may not be followed 
by another instruction on the same line. 


3. The STEP (aexp-3) portion 


instruction is optional. If a STEP value is 
not specified, BASIC assumes a value of +1 for 


aexp-3. 


4. BASIC programs will execute significantly 
faster if the loop parameter variables are 


declared as type INTEGER. 


os FOR-NEXT loops may be nested within a program. 
It is important to keep in mind, however, that 
each FOR instruction and its corresponding 
NEXT instruction must be completely contained 


within any larger loop. 


6. Program LISTings have FOR...NEXT loops 


indented for clarity. 
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Examples: 
>>LIST 


18 FOR A= 8 TO 10 STEP 2 
20 B= Atl 

3Q@ PRINT B; 

40 NEXT A 

50 END 


>>RUN 
1357911***59END*** 


In the above example, upon entering the FOR...NEXT 
loop defined by lines 198 through 498, the loop 
parameters are evaluated and set equal to: 


®@ (aexp-l, the initial value) 
18 (aexp-2, the final value) 
2 (aexp-3, the STEP value) 


The index variable is then set equal to the initial 
value (A=@). Execution continues with lines 2@ and 
3@ where the variable A maintains the value 
assigned to it by the FOR instruction. At line 49 
the index variable is tested to see if it is equal 
to or greater than the final value (is A > 
aexp-2?). In this case 9 is not equal to or 
greater than 16, so execution continues with line 
18. The STEP value is added to the index variable 
(A = A + aexp-3). This continues until (A > aexp- 


2). Then control is transferred to statement 5@. 


Correct Nesting Format: 


18 FOR A = 1 TO 5@ STEP 2 
20 FOR B = 1 TO 38 STEP 5 
30 FOR C = 1 TO 18 STEP 1 


100 NEXT C 
118 NEXT B 
120 NEXT A 


Illegal nesting occurs when FOR...NEXT loops 


overlap. The following example will generate a run 
time error. 
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Incorrect Nesting Format 


18 FOR A = 1 TO 5@ STEP 2 
26 FOR B = 1 TO 38 STEP 5 
36 FOR C = 1 TO 18 STEP 1 


19 NEXT B 
119 NEXT C 
120 NEXT A 
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instruction: GOSUB...RETURN 


format: [Ln] GOSUB n 


n [program instructions] 


‘{Ln] RETURN 


where: 
Ln are optional line numbers. 


n is the line number of the first 
statement of the subroutine to 
which control is transferred. 


The GOSUB instruction transfers control to a 
subroutine. 


When, during the execution of the subroutine, a 
RETURN instruction is executed, control is passed 
to the instruction following the GOSUB instruction 
which called the subroutine. 


Notes: 


16 In BASIC, subroutines may be fully enclosed or 
nested in other subroutines. Subroutines may 
be nested up to 16 deep. 


When nesting subroutines, remember that the 
RETURN instruction will take you back to the 
last GOSUB and start execution of the 
instruction immediately following. Improperly 
nested GOSUB...RETURN instructions will 
generate runtime error messages. A nested 
subroutine is executed after the GOSUB 
statement and before the RETURN statement of 
the subroutine in which it is enclosed. 


2. The GOSUB and the RETURN instruction must each 
be the last instruction on a line. They may 
not be followed by another instruction on the 
same line. 
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Example: | 
>>LIST 


28 GOSUB 59 

38 PRINT "PROGRAM OVER" 

48 END 

58 PRINT "THIS IS A SUBROUTINE" 
68 PRINT "WHICH DEMONSTRATES THE" 
70 PRINT "GOSUB STATEMENT" 

88 PRINT 

98 RETURN 


>>RUN 
THIS IS A SUBROUTINE 


WHICH DEMONSTRATES THE 
GOSUB STATEMENT 


PROGRAM OVER 
*kKAQ END*** 
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instruction: GOTO 
format: {Ln] GOTO n 


wheres: 


Ln is an optional line number. 


n is the line number 


of the 


statement to which control is 


transferred. 


The GOTO instruction unconditionally transfers 
control to the statement line specified by n. 


When used as a statement, GOTO interrupts the 
normal execution sequence of program statements and 
transfers control to the specified statement. 


When used as a command GOTO will cause execution of 
a program to start with the specified statement. 


Notes: 


1. When used with the IF...THEN instruction, the 


words GOTO are optional: 
IF X=8 THEN GOTO 5@ 
or 
IF X= THEN 56 


are equivalent and are 
instructions. 


2. When execution of a program is 


continued using a GOTO command, 
initialization takes place. 


131 


legal 


initiated or 
no variable 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 
12. Control Structure Instructions 


Example: 


>>LIST 


16 
28 
36 
40 
58 
200 
210 


>>RUN 
gS a2 


INPUT A 
IF A<® THEN 200 

B = SOR(A) 

PRINT "THE SQUARE ROOT OF ";A;" IS "3B 
GOTO 2198 

PRINT "THIS YIELDS AN IMAGINARY NUMBER" 
END 


THIS YIELDS AN IMAGINARY NUMBER 
***219 END*** 


>>RUN 
2? 9 


THE SQUARE ROOT OF 9 IS 3 
***219 END*** 


In statement 28 the words GOTO are omitted. This 


statement 
statement 


causes control to be transferred to 
268 if the condition (A<@) is true. 


Statement 58 unconditionally transfers control to 
statement 218. 
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instruction: IF...THEN 
format-1: [Ln] IF exp THEN n 
format-2: [Ln] IF exp THEN instruction 
[Ln] IF exp THEN instruction:instruction:... 


where: 
Ln is an optional line number. 


exp is a relational or arithmetic 
expression, an arithmetic 
variable, or a constant. 


n is the line number of the 
statement to which control is 
transferred, 


instruction is any BASIC instruction except 
FOR, NEXT, END, REM or DATA, 


The IF...THEN instruction evaluates exp to false 
(=8) or true (not equal to Q). 


If format-1 is used, control is transferred to the 
specified statement if exp is evaluated as true, 
and to the next sequential statement if exp is 
false. 


If format-2 is used, and exp is true, the 
instructions remaining on the same line are 
executed before control is transferred to the next 
sequential statement. If exp is false, control 
passes to the next sequential statement line. 


Notes: 


l. In a relational expression, a relational 
operator (=, <, >=, <=, <>, or >) is used to 
compare two expressions or values. Refer to 
sections 6.3 and 6.4 for a discussion of 
relational and boolean operators. 


26 No instruction may follow format-l of the 
IF...THEN instruction on the same line. 


3 Standard BASIC format must be followed for all 
instructions used with format-2. This 
includes the restriction that no instruction 
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may follow a FOR, GOTO or GOSUB instruction on 
the same line. 


4. IF...THEN instructions may be nested using 
format-2. For example: 


190 IF A = B THEN IF G$ = "N" THEN 5900 


is a legal statement. 


Examples: 


198 INPUT A 

110 IF A=8 THEN @"MUST BE NON-ZERO": GOTO 109 
120 PRINT A 

13@ END 


In this example, the computer outputs a prompt (?) 

to which the user responds with a number. If the 

number is non-zero (A=@ is false), control will be 

passed to line 119, the number will be printed, and 

execution of the program will terminate. If the 

number is zero (A=@ is true), the part of line 108 ( 
after THEN will be executed, printing out the 

message and returning control to line 188 which 

will request another number from the user. 


108 INPUT "First Name: ", AS 

200 IF AS = "FRED" OR AS = "Fred" THEN GOTO 489 
388 GOTO 180 

408 PRINT "So you are FRED!" 

588 END 


This program will continue to prompt the user with 
"First Name:" until the user responds with either 
Fred or FRED. The IF...THEN instruction includes a 
compound relational expression: 


AS = "FRED" OR AS ="Fred" 


This expression is evaluated as true (=l1) if either 
FRED (all upper case) OR Fred (Upper case F, lower 
case red) is entered. This type of checking is 
very useful in interactive programs where a variety 
of user responses are to be allowed. 
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instructions: ON...GOTO 
ON. ..GOSUB 


format: [Ln] ON (aexp) GOTO nl1,n2,...,ni 
[Ln] ON (aexp) GOSUB nl1,n2,...,ni 


where: 
Ln is an optional line number 


aexp is an arithmetic expression, 
variable, or constant 


The ON...GOTO and ON...GOSUB instructions transfer 
control to any one of several lines in a program 
based on the value of the expression (aexp) 
contained in the instruction. 


Refer to the GOTO and GOSUB instructions for more 
information. 


Notes: 


Ls When aexp is evaluated, if it is equal to one, 
control will be passed to the statement 
numbered nl; if it is equal to two, control 
will be passed to the statement numbered n2; 
if it is equal to i, control will be passed to 
the statement numbered ni. 


2. If aexp evaluates to a non integer number the 
value of the number will be rounded to the 
nearest integer for the purpose of these 
instructions. 


3. If aexp is evaluated as less than one or 
greater than i the instruction will be ignored 
and control will pass to the next sequential 
instruction. 


4. If nl, n2, or ni is a nonexistant line number, 
and if control is transferred to that line, a 
fatal run time error will be generated. 


5. No instruction may follow an ON...GOTO or 
ON...GOSUB instruction on the same line. 
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C 
statement: STOP 
format: Ln STOP 
where: 
Ln is a line number. 

The STOP statement halts program execution and 

causes BASIC to return to the command mode. 

Notes: 

1. After a program has been STOPed by a STOP 
statement execution may be restarted from the 
statement line immediately following the line 
containing the STOP statement by the use of 
the CONtinue command. 

2. Upon execution of the STOP statement, BASIC 
displays a message on the console indicating 
the line number of the STOP statement which 
caused the program to halt. 

Example: 
>>LIST 

10 INPUT A,B,C,D,E,F 
2@ LET N=A+B/C 
38 PRINT A;B;C 
46 STOP 
5@ PRINT D;E;F 
68 PRINT N 
78 END 
>>RUN 
123 
REKAG STOP*** 
>>CON 
456 
1.6666666666667 
REETG END*** 

In this example, the BASIC returns to command mode 

after encountering the STOP in statement line 4@. 

The program is then CONtinued when the user enters ‘ 

the CON command. a : 
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instruction: INPUT (from the console) 
format: [Ln] INPUT X1,X2,...Xn 
[Ln] INPUT "string", X1,X2,...Xn 


where: 
Ln is an optional line number. 


X1...Xn are numeric or string variables. 


string is an optional string literal. 
It is a prompt to be displayed 
on the console upon encountering 
the INPUT instruction. 


The INPUT instruction assigns a value, input from 
the console, to a variable. When the INPUT 
instruction is executed, a prompt (either a 
question mark (?) or a string as used above) is 
output to the console. The user should respond to 
this prompt by entering a list of data which 
corresponds to the variable list in the INPUT 
instruction. 


Notes: 


as If the string format of the INPUT instruction 
is used, the string will replace the question 
mark as the initial prompt. 


2. If the user types in fewer data items than are 
called for in the variable list, a double 
question mark will appear on the terminal. 
This prompt continues to appear until each 
variable has been assigned a value. See 
examples. 


3. If more data is input than is required, an 
error message will be generated. 


4. The type of data input must be the same as the 
type of variable listed in the INPUT command. 
For example, if the INPUT command contains a 
list of numeric variables, the data input must 
be numeric data. If an attempt is made to 
INPUT string data into a numeric variable, an 
error message will be generated. 


5. When a string variable is used with an INPUT 
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instruction, the portion of the string which 
is referenced is set equal to null characters 
before the source is moved into the string 
variable. The whole string is referenced if 
_no subscripts follow the string variable, 
while various substrings may be referenced by 
the use of subscripts. Refer to section 
5.2.3, Referencing String Variables, for a 
complete discussion of the subject. The INPUT 
instruction will not move more characters than 
can be accepted by the destination string (or 
substring) which is being referenced. 


6. If the INPUT list is terminated with a 
semicolon, the carriage RETURN which the user 
types after the requested data has been 
entered will not be echoed. This allows more 
than one prompt and response sequence to 
appear on a Single line. 


7. Refer also to the description of the INPUT 
instruction in the chapter on Data File I/O. 


Examples: 


>>LIST 
19 INPUT A,B,C,D 
20 PRINT A. 
30 INPUT E,F 
4Q PRINT B;" "sce" "“2D;" ";E;" "SF 
58 END 


>>RUN 
? 32,18,20,4 

32 

? 100,200 

18 26 4 1068 209 
KEEDG END*** 


In the above example, the proper number of items 
was INPUT in response to each prompt. Suppose we 
were to respond to INPUT statement 18 with only 
three numbers: 
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>>RUN 

? 5,18,15 

2? 290 

5 

? 38,49 

19 15 28 30 408 
*k*ESQ END*** 


BASIC displayed an additional prompt (??) when it 
did not receive as many items as were in the INPUT 
list. 


In our example, line 18 and line 38 can be replaced 
with lines which will tell the user specifically 
what items are needed: 


>>1@ INPUT “Enter four numbers: ",A,B,C,D 
>>30@ INPUT “The last two numbers? ",E,F 
>>RUN 

Enter four numbers: 198,200,300,4990 

120 

The last two numbers? 580,600 

208 300 480 508 689 

REED G END*** 
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instruction: PRINT (to the console) 
format: [Ln] PRINT 


[Ln] PRINT Al,A2,...,An 


wheres: 


Ln is an optional line number. 


Al-n is a number, string literal 
enclosed in quotation marks, a 
numeric variable, a string 
variable, a numeric expression, 
or a standard or user defined 
function, 


The PRINT instruction is used to output information 
to the terminal. 


Notes: 
l. When used alone, the PRINT instruction will 
generate a new line (CR, LF). 
2. The at sign (@) may be used in place of the 
word PRINT for brevity. 
Example: 
38 PRINT 
49 PRINT "AND IT SAVES SPACE" 
can also be written as: 
38 @ 
48 @ "AND IT SAVES SPACE" 
This facilitates entry of large, text-oriented 
programs with many blank lines. 
3. The spacing of output can be controlled by 


using a comma (,) or a semicolon (;) between 
items in a PRINT instruction list. 


Items separated by commas are printed 
beginning in the leftmost column of each 
printing field. Using the default value of 29 
columns per field, the PRINT statement below: 
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1@ PRINT 1,2,3,4 


will produce output in the following format: 


column 4) 20 40 68 
no. 


See the SET instruction to change the default 
value of the number of columns per field. 


If a semicolon is used between items, the 
items are printed adjacent to each other 
(i.e., without spaces between items). For 
example, the statement: 


16 PRINT "AL"; "TO"; "GE"; "TH"; "ER" 
>>RUN 
will produce output in the following format: 
( ALTOGETHER 


Commas and semicolons may be used in a PRINT 
statement in any combination. 


4. If more items are listed in a PRINT statement 
than can be output on one line, BASIC will 
generate a linefeed and continue printing on 
the next line. 


5. More complex formatting of printed text is 
possible with the TAB and SPC functions and 
the PRINT USING instruction. 


6. Refer also to the description of the PRINT 
instruction in the chapter on Data File I/O. 


foo 
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Example: 


>>LIST 


76 
8B 
98 
186 
119 


>>RUN 
THIS I 


et TO52 


A=1979 

REM B=YOUR BIRTHDATE 

PRINT "THIS IS ";A 

PRINT 

PRINT 

INPUT B 

C=A-B 

PRINT "YOU WERE BORN IN ";B 
PRINT 

PRINT "YOU ARE "; C;" YEARS OLD THIS YEAR" 
END 


S 1979 


YOU WERE BORN IN 1952 


YOU ARE 27 YEARS OLD THIS YEAR ( 


EKELILG 


END* ** 
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instruction: READ 


format: [Ln] READ Al,A2,...,An 


wheres: 


Ln is an optional line number. 


Al-n are numeric or string variables. 


The READ instruction is used to read values from 
DATA statement(s) and assign these values to the 


READ instruction variable list. 


Notes: 


1. The order in which variables appear 


in the 


READ instruction determines which value from 
the DATA list will be assigned to which 
variable. For instance, the first value that 
appears in the DATA list is assigned to the 


first variable in the READ list, 


the fifth 


value is assigned to the fifth variable, and 


so forth. 


26 A pointer is moved in sequence through the 
list of DATA values as these values are 
assigned to variables in the READ list. The 
number of DATA elements must be equal to or 
greater than the number of variables in the 
READ list. If there are fewer items remaining 
in the DATA list than are in the current READ 
list, an error message will be generated. 


3. DATA elements corresponding 


numeric 


variables must be numeric data and elements 
corresponding to string variables must be 


string literals. 


4. When a string variable is used with a READ 
instruction, the portion of the string which 
is referenced is set equal to null characters 
before the source is moved into the string 
variable. The whole string is referenced if 
no subscripts follow the string variable, 
while various substrings may be referenced by 


the use of subscripts. Refer 


5.2.3, Referencing String Variables, 
complete discussion of the subject. 


section 


for a 


The READ 


instruction will not move more characters than 
can be accepted by the destination string (or 
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substring) which is being referenced 


Example: 
>>LIST 


1@ READ A,B,C,D$ 

20 PRINT A,B,C,D$ 

30 DATA 10,20,38,"END" 
48 END 


>>RUN 


18 20 36 
*kk*KAQ END*¥** 
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RESTORE 
[Ln] RESTORE 


[Ln] RESTORE n 


is an optional line number. 


is a line number in the current 
program. This must be a line 
number of or before a DATA 
statement. Tf n is not used, 
the DATA list pointer is 
positioned before the first DATA 
list item in the program. If n 
is included, the DATA list 
pointer is positioned before the 
first occurring DATA list item 
after the specified line number. 


resets the DATA list 


pointer 
instructio 
skip over 


Example: 
>>LIS 


198 
208 
308 
40 
50 
66 
78 
86 
96 
186 
118 
129 
130 


>>RUN 
1 


5 
1 
9 


which is 


associated with the 


n. This allows the user to 


DATA items. 


T 


B, 
READ E,F, 
RESTORE 
READ R,S, 
RESTORE 9 


KAKEND*E* 
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statement: DATA 
format: Ln DATA Al, A2,...,An 


where: 
Ln is a line number. 


Al-An are numeric expressions, 
constants, or string literals. 


The DATA statement specifies values for variables 
appearing in a READ instruction. 


Notes: 

1. ©The READ instruction is used to read values 
from DATA and assign these values to the READ 
instruction variable list. 

2 The RESTORE instruction allows items in the 


DATA list to be skipped or reread by resetting 
the DATA list pointer. 


Example: 
18 DATA 7*3,9+(2*1907),"This is DATA",15,75 
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es 


instruction: PRINT USING 


format: [Ln] PRINT USING svar, Xl, X2,...,Xn 


where: 


Ln is an optional line number. 


svar is a string literal or string 
variable format definition. 


Xl-n are any numeric, string or 
Matrix variables, string 
literals, or constants. 


The PRINT USING instruction allows the user to 
specify a format for printing output. 


Notes: 


In examples in this section the character b 
represents a blank character. 


( Ls 


A format field is bounded on either side by 
any character which is not one of the special 
characters (# & * +, $ ! - .). As indicated 
in the general format for the PRINT USING 
instruction, a format expression may include 
more than one format field and may also 
include string literals. If multiple format 
fields are specified, the values of 
expressions are assigned to these fields in 
order. A format expression may also be 
assigned to a string variable. 


Example: 
>>LIST 


19 A=11 : B=333 : C=22 

28 DIM D$(20) : DS="### &&&&M&EE" 
38 PRINT USING"### &&&&M&&&",A,B,C 
4@ @USING DS$,A,B,C 

58 END 


>>RUN 

11 8333M@22 
11 @333M622 
**kESQG END*** 


Statement 38 in the above example outputs the 
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three variables (A, B, and C) with 2 spaces 
separating the first two and the literal M 
separating the last two. Any literal which is 
not one of the PRINT USING special characters 
may be used to separate format fields. This 
literal will be printed between the fields if 
it is a blank or any other character. 
Statement 49 outputs the same information in 
the same format using a string variable 
instead of a string literal in the PRINT USING 
instruction. Statement 48 also abbreviates 
PRINT with the symbol @. 


When a string appears in the PRINT USING 
argument list, the characters of the string 
are printed in the positions held by any of 
the special format field characters. Strings 
are left justified in the format field. If 
the number of characters in the string is less 
than the number of characters in the format 
field, the extra spaces will be blank filled, 
If the number of characters in the string is 
greater than the number of characters in the 
format field, the extra characters in the 
string will be truncated. 


Examples: 


In the instruction: 
PRINT USING "****,/** /*") "ABCDEF" 

the string literal is output in the format: 
ABCDEFbbb 


In the instruction: 
PRINT USING "&&&,&&&.&&" , "“ABCDEFGHIJKLM" 
the string literal is output in the format: 
ABCDEFGHIJ 


If the number of items in the expression list 
exceeds the number of specified format fields, 
the specified format fields will be re-used 
for the extra items. 


Examples: 


In the instruction: 

PRINT USING "SS&&.&&", A,B,C 

the expressions A, B, and C will all be 
PRINTed with the format field $S$&&.&&. 
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In the instruction: 

PRINT USING "SS##bb$S&&.&", A,B,C 

the expressions A and C will be formatted 
using the format field $$## and the expression 
B will be formatted using the format field 
SS$&&.&. 


4. All normal PRINT functions (such as TAB, SPC, 
semicolon, and comma) are overridden by the 
PRINT USING instruction. The only exception 
is the terminating semicolon which still 
inhibits the generation of a new line. 


5. The format expression may include a maximum of 
128 characters. 


6. If a number being formatted has more digits 
than allowed for in the format expression, an 
all asterisk error message will result. 


Digit Formatting 


These special characters may be used to format 


digits: 
( # indicates leading blanks 
: & indicates leading zeroes 
* indicates leading asterisks 
These symbols are used to right justify digits ina 
print field. The width of this print field is 
determined by the number of special characters 
included in a format field. Any non-digits (such 
as a minus sign) are eliminated. If the number of 
special characters in the format field exceeds the 
number of digits in the expression, the digits will 
be right justified within the field and preceded by 
characters corresponding to the special characters 
used in the format field. In the following 
examples, the character b is used to represent 
blank characters (spaces). ; 
Examples: 
Value of Expression Format Field Output 
1 Hit tt bbbbl 
12 Ht tHE bbb12 
123 HEE HE bb123 
G ; 1234 Ht te b1234 
es 12345 Ht HHH 12345 


123456 FHEEH KEKKK 
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1 &E&EEE GBOH1 
12 &&EEE OBG12 
123 &&&EE 89123 
1234 &&EEE 1234 
12345 &&E&EE 12345 
123456 &&&EE RRKEE 
1 KERKK KEEK] 
12 KKKKK KEK 
123 RREKE **123 
1234 RREKS *1234 
12345 RERRE 12345 
123456 KKKKK KKKKK 


Comma (,) 


The comma (,) places a comma in the position in 
which it appears in the format field. If the 
format specifies that a comma be output in a 
position in the field which consists of leading 
blanks, zeroes, or asterisks, then a blank, a zero, 
or an asterisk respectively are printed in the 
comma position. 


Examples: 


Value of Expression Format Field Output 
2983 tH , HEE b2,093 
4 tt tHE bbbbb4 
4457 &&E,E& 944,57 
18 SEE, &E 890018 
996546 saeboae te 99654,6 
22 KREKK KEKKD 2 


Decimal Point (.) 


The decimal point (.) places a decimal point in 
the position in which it appears in the format 
field. All digit positions which follow the 
decimal point are filled with digits. If the 
expression contains fewer fractional digits than 
are specified, zeroes will be printed in the extra 
positions, If the expression contains more 
fractional digits than are specified, the 
expression will be rounded so that the number of 
fractional digits equals the number of format 
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positions available. 


Examples: 


Value of Expression Format Field Output 
234 HET. HH 234.000 
23.4567 Het HEF b23.457 
13 &&.& 13.9% 
66.72319 &&& 66.7 
876.1245 REEL EE **876.12 
1234567.245 RKKKK KK KKKKKKKK 

In the last example, when too many significant 


digits appear to the left of a decimal point, an 
all asterisk error message results. 


Fixed Plus (+) and Minus (-) Signs 


The plus (+) and minus (-) signs may appear in the 

: first character position in a format field. The 

( character + or -— will print the respective sign of 
an expression in the specified character position 
in the format field. When an expression is 
preceded by a plus or minus sign, any leading 
zeroes will be replaced by blanks, zeroes, or 
asterisks as specified. When a positive expression 
is preceded by a minus sign, a blank space is left 
in the sign position. 


Examples: 


Value of Expression Format Field Output 
56.8888 +HH EHH +56.889 
4.564 +HH HEH +b4.564 
6.456 +&EE KE +006.46 
234.2 +F&EE EE +234.26 
-23.56 —kKKKE —*¥*k93.6 
2345 SEALE a *2345.0 
—-2345678.34 —KKKKK RREKKEKEE 


151 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 
14. Output Formatting Instructions 


152 


- 
\ 
Floating Plus (++) or Minus (--) Signs 
The use of two or more plus or minus signs at the 
beginning of a format field will output the 
respective sign directly preceding the value of the 
expression. If a positive expression is PRINTed 
USING a floating minus format, a blank is printed 
immediately preceding the number instead of a minus 
sign. The additional signs in the floating point 
format can be used to represent digits. 
Examples: 
Value of Expression Format Field Output 
2.234 ++H## #44 b+b2.234 
22.234 ++HH HHH b+22.234 
-44.56 —--&&&.& b-844.6 
5.32 —--&&&.& bb#85.3 
178.456 HER KK HK b+*178.46 
12345678.45 FERRER kK KRKKKKEKKEK 
553.17 t+4+4+4++ 44+ bb+55.17 \ 
55617 0 eee .-—" bbb55.17 
“55.17 0 eee .-- bb-55.17 
Fixed Dollar Sign (S$) 
The dollar sign ($) is used in either the first or 
second character position in the format field to 
print out a dollar sign in that position. A dollar 
sign specified in the second position of the format 
field must be preceded by either a plus (+) or a 
minus (-) sign. 
Examples: 
Value of Expression Format Field Output 
23.456 SH##. HH $23.46 
4.52 St. ## $b4.52 
123.7789 ~S&&E EEE b$123.779 
2.34 S*.* $2.3 4 
234.55 See ee ( 
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Floating Dollar Sign ($$) 


The use of two or more dollar signs beginning at 
either the first or second character position in 
the format field will output a dollar sign 
immediately preceding the value of an expression. 
If two or more dollar signs begin in the second 
character position, the first character position 
must contain a plus or a minus sign. 


Examples: 


Value of Expression Format Field Output 
234.2345 SSSS#. ### b$234.235 
4.45 SSSS#.##F bbb$4.456 
23.989 S$S&&.&& b$23.99 
4.5 $S&&.&& b$G4.50 
24.56 —SSRAK KK bb$ *24.56 
-4455.67 —SQee* eK -~$4455.67 


Exponent Fields (!!!!) 


Four consecutive exclamation characters (!!!!) 
indicate an exponent in the format field. These 
four exclamation points represent the expression 
E+nn, where n is any digit. When used with a 
numeric expression, this format field will output 
the expression in exponential form. 


Examples: 


Output 


Value of Expression Format Field 
23.3456 HHOHHLINS 23.35E+06 
2606 HH HEE LITY 20. 80E+82 
-.36 ~SEEEELIT! -360.00E-83 


7. Only the characters # or & should be used to 
the right of a decimal point. The asterisk 
(*) character follows the same rules as the # 
character when used to the right of a decimal 
point. 


8. Either the floating dollar ($$) character or 
( pluses (++) or minuses (--) may be used within 
— the same formatting statement, but not both 
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types of characters. 

9. A non-floating print character cannot be 
placed left of a floating character. For 
example, the format fields $+++ or +$$$ are 
legal but the format field +$++ is illegal. 

18. 16K BASIC does not check comma syntax. 


ll. Only one decimal point may be used in a format 
field. 


12. Trailing + or - signs are illegal. 


fos 
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A typical application for the PRINT USING format 
follows. This application is a program for 
computing a payroll on an automated basis. 


1@ PRINT "ENTER SOCIAL SECURITY NUMBER AND HOURS WORKED" 
20 PRINT "OF FOUR EMPLOYEES" 

308 PRINT 

4Q INPUT A,Al 

5@ INPUT B,Bl 

6@ INPUT C,Cl 

70 INPUT D,D1l 

99 PRINT "WHAT IS THE HOURLY WAGE"; 
100 INPUT W 

118 PRINT 
120 PRINT 

138 Al=Al*wW : B1=Bl*W : Cl=Cl*wWw : D1=D1*W 
146 PRINT USING " #########",A,B,C,D 

150 PRINT 

168 PRINT USING " $S$#.##",Al,B1,C1,D1 

170 PRINT 

188 PRINT "ANOTHER FOUR? TYPE 1 IF YES, TYPE @ IF NO" 
198 INPUT Q 

200 IF Q=l1 THEN GOTO 18 

2198 END 


>>RUN 
ENTER SOCIAL SECURITY NUMBER AND HOURS WORKED 
OF FOUR EMPLOYEES 


552966937,49 
525449121,40 
455238541,35 
211329494,32 
WHAT IS THE HOURLY WAGE? 4.90 


VV 0 


552966937 525449121 455238541. 211329494 
$168.09 $168.09 $140.80 $128.80 
ANOTHER FOUR? TYPE 1 IF YES, TYPE @ IF NO 


2? @ 
***219 END*** 
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function: SPaCe 
format: SPC (aexp) 


where: 


aexp is an arithmetic expression, 
variable, or constant. 


The SPC function instructs BASIC to PRINT the 
specified number of spaces. 


Notes: 


Ls The SPC function may be used only with a PRINT 
instruction. When used elsewhere it is a 
transparent function. For example: 


A = SPC (5.4) 
is exactly equivalent to: 
A= 5.4 
2. Unlike the TAB function, which always ( 
determines print position relative to column 


@, the SPC function determines print position 
relative to the current column location. 


Example: 
>>LIST 


1@ A=2 
28 INPUT C,D 
3@ PRINT SPC(1@);A;SPC(A*19);C;D 


48 END 
>>RUN 
? 20,38 
2 2030 
column no. 19 31 


-In this example, the computer is instructed to skip 
16 spaces, print A, skip 28 spaces, and print C and 
D. 


Pon 
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function: TAB 


format: TAB (aexp) 


where; 


The TAB function causes output to begin in a 


aexp is an arithmetic expression, 
variable, or constant. 


specified column. 


Notes: 


1. 


The TAB function may be used only with a PRINT 
instruction. When used elsewhere it is a 
transparent function. For example: 


A = tab (7.3) 
is exactly equivalent to 

A= 7.3 
Multiple TAB functions may be included in one 
PRINT instruction, but the user should keep in 
mind that the print position indicated by 


successive TAB functions is always determined 
relative to column @. 


Columns are numbered 9 through the page width 


‘so the first column is column @. 


If the argument to the TAB function exceeds 
the current page width, it is reduced modulo 
that page width to a number between @ and the 
page width. The default value for the page 
width is 79. 


If the argument is negative, no tabbing takes 
place. 


Tf the (reduced) argument is greater than the 
current column position, a new line (CR,LF) is 
issued and the TAB iS executed on the next 
line. 
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Example: 
>>LIST 


1% A=1 

20 INPUT B,C,D 

39 PRINT TAB(2);B;TAB(5) ;B+C+D;TAB(A+9) ;D 
40 END 


>>RUN 

? 5,8,9 
Dee a 

KKEAQ END**¥* 


In this example, the computer is instructed to 
begin printing B in column 2, to begin printing 
B+C+D in column 5, and to begin printing D in 
column 18. 
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DATA FILE INPUT/OUTPUT 


15.1 Data Files 


Data is information. A file is a place and method 
for storing many individual items of information. 


A computer data file (or file) is defined by: 


1. The storage medium (paper tape, floppy disk, 
etc.), 


2. The method of accessing the data (sequential 
or random), 


3. The code by which the data is translated for 
( Storage (ASCII or internal machine 
representation). 


15.1.1 Records 


A record is a group of related items. A data file 
is made up of records. Information is inserted 
into or retrieved from the file record by record. 


If a file contained information on all of the 
baseball games in one year, each record might 
contain information on one game, one player, or one 
team. All of the records would contain similar 
information. If the first record (record number @) 
held the statistics on game #1, the first number in 
the first record could be the number of hits team A 
got, while the second number would be the number of 
hits team B got. The third number could be the 
number of errors made by team A, while the fourth 
number would be the number of errors made by team 
B. The second record (record number 1) would 
contain similar information covering game #2. 
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15.1.2 


15.2 


15.3 


Fields 


A field describes one item in a record. A field 


can contain string (alphabetic) or numeric 


information. 


In the above example, instead of saying that the 
first number was the number of hits team. A got, we 
could say that the first field was numeric and 


contained the number of hits team A got. We can 


now further describe the record layout by saying 
that the fifth and sixth fields are alphabetic and 
contain the team names. 


Floppy Diskette 


A floppy diskette (or disk) is a flat, round 
magnetic storage medium. It is protected by a 
square envelope which exposes only a small portion 
of the surface of the disk in addition to the hole 
in the middle. When used in conjunction with a 
disk drive and disk controller, the disk becomes a 
data file storage device. Data can be added to the 
data already on the disk or records on the disk can 
be changed or deleted. 


Creating a Data File 


Before the Cromemco Disk Operating System (CDOS - 
the operating system through which all disk 
operations are performed, even if the programmer is 
using BASIC) can OPEN a disk file, it must CREATE 
the file in the file directory. 


A file can be created from the CDOS monitor by 
using the CDOS TEXT EDITOR or SCREEN EDITOR. A 
file can also be created from BASIC by using the 
CREATE instruction. 
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OPENing an I/O Channel 


Once a file has been CREATEd, it must be OPENed to 
allow BASIC access to the file. The OPEN 
instruction reserves an input/output channel and 
assigns the I/O channel number to the file 
reference or file device. Once a file has been 
opened (and assigned a channel number) all input 
and output from/to that file will be done through 
the assigned channel. 


BASIC normally carries 4 I/O channels in addition 
to the console. One I/O channel is needed for each 
file which is OPENed at the same time. Each 
channel occupies 192 bytes of memory. Increasing 
the number of channels allows more files to be 
opened simultaneously but reduces the amount of 
memory available to the BASIC user. Conversely, 
decreasing the number of I/O channels increases the 
amount of available memory. If you wish to change 
the number of channels available for use, see the 
Appendix, Changing the Number of I/0 Channels. 


CLOSE 


The CLOSE instruction will disassociate the 
input/output channel number and the file which were 
associated by the OPEN instruction. The channel 
will then be available for use by other files. 


Internal Machine vs. ASCII Representation 
BASIC can store data in two formats. Both consist 
of groups of ones and zeros (binary 
representation), but each needs to be translated 
differently for output to a terminal or printer. 


ASCII (American Standard Code for Information 
Interchange) is the closest to written letters and 
numbers. ASCII is stored in the machine according 
to the table of ASCII codes (see Appendix B). Each 
character code occupies one byte (8 bits). When 
the code is translated from binary to decimal, the 
character which is represented can be found in the 
ASCII table. This is the way all BASIC strings are 
stored. ASCII information is stored so that one 
character is stored in one byte. 
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| The need arises for another method of storing 
| numbers when speed of arithmetic computation and 
amount of storage space become important factors. 


Internal Machine code is used only for the storage 
of numbers. The number of bytes occupied by a 
number depend on its magnitude and precision (the 
size of the number and the number of decimal places 
which need to be kept). There are three internal 
machine formats: 


Integer size: 2 bytes 
range: +32767 < N < -32768 
accuracy: nearest integer 


Short Floating Point size: 4 bytes 
range: +9.99E+62 < N < +9.99F-65 
accuracy: 6 decimal digits 


Long Floating Point size: 8 bytes 
range: +9.99E+62 < N < +9.99E-65 
accuracy: 14 decimal digits 


Refer to Chapter 3 for a more complete discussion 
of internal machine representation. 


15.5 PRINT and INPUT 


PRINT and INPUT write and read in ASCII format. 
These instructions are primarily intended to write 
data to an output file which is to be printed or 
typed at a later time,. and to read a data file 
which was created by the editor or another system. 
When used with a file, they exactly parallel their 
operation with the console terminal. In 
particular, file INPUT requires a comma or carriage 
RETURN between INPUT data items. 


IT IS RECOMMENDED THAT THE PUT AND GET INSTRUCTIONS 
BE USED WITH DATA FILES WHICH ARE TO BE ACCESSED BY 
BASIC PROGRAMS. 


The PRINT and INPUT instructions translate numeric 
data from ASCII to Internal Machine Format (or vice 
versa). They are therefore slower than the PUT and 
GET instructions. There is little need for the 
Programmer to keep track of the type of variable 
which is written out with a PRINT instruction. An 
integer variable which is written using the PRINT 
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instruction may be INPUT back into a string or 
floating point variable without losing its meaning. 
No attempt should be made to INPUT an ASCII string 
into a numeric variable. A file which has been 
output using the PRINT instruction may also be 
TYPEd out and read whereas the same file output 
with the PUT instruction would not be able to be 
TYPEd. 


PUT and GET 


The PUT and GET instructions write and read in 
internal machine format. If an integer variable is 
written out to a file using a PUT instruction, it 
must be read back into an integer variable (and not 
into a floating point variable or an ASCII string) 
using a GET instruction or it will be meaningless. 
The machine does no translation with these 
instructions so they can be executed faster than 
PRINT and INPUT. The programmer must keep track of 
the types and lengths of variables written by PUT 
so that they may be read back in properly. 


An Interesting Note 


A string (which is stored internally in ASCII code) 
may be output with a PUT or PRINT instruction with 
the same general result (except that PRINT outputs 
a carriage RETURN-line feed sequence where 
appropriate and tabs, using spaces, when variables 
are separated by commas). This is because PUT will 
output a string in internal machine format, which 
(for a string) is ASCII. The PRINT will not 
translate the string because it is already in ASCII 
format. 
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File Pointer 


While a file is OPEN, BASIC maintains a pointer 
which may determine where the next read or write 
will occur. This pointer can be manipulated by the 
various file read and write instructions as will be 
explained in the following paragraphs. 


When a file is first OPENed, the File Pointer is 
positioned just before the first byte of the first 
record of the file. If the file is a new file 
(i.e., it contains no data), the beginning of the 
file and the end of the file coincide, and so the 
File Pointer also points to the end of file. This 
is appropriate. If a read is attempted on a new 
file, an end of file error will be returned because 
there is no data in the file. 


If no record number is specified in a file I/0 
instruction (sequential I/0), the data list 
contained in the instruction is written to or read 
from the file from the current position of the file 
pointer. 


If a record number is specified in a file I/0 
instruction (random I/O), the File Pointer is moved 
to a position just before byte zero of the 
specified record and then the data list contained 
in the instruction is written to or read from the 
file from the new position of the File Pointer. 


If a byte number is specified in addition to the 
record number, the File Pointer will be positioned 
just before the specified byte in the current or 
specified record before the I/O instruction is 
executed. 


If there is no data list associated with a PUT 
instruction, the pointer is repositioned as 
specified above and no input or output takes place. 


After the input or output has taken place, the PUT 
and GET instructions leave the File Pointer just 
after the byte which was last input or output. 


The PRINT and INPUT instruction use the Carriage 


RETURN or Carriage RETURN-Line Feed sequence as a 
delimiter, 


The PRINT instruction will move the File Pointer to 
a position just after the last PRINT character. If 
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the PRINT line starts with byte zero of the current 
record and is the same length as the specified 
record size, the pointer will be positioned just 
before byte zero of the next logical (sequential) 
record. 


The PRINT instruction will automatically insert a 
Carriage RETURN/Line Feed sequence if: 


1. the data list associated with the PRINT 
instruction will cause a record to be output 
which is longer than the page width (refer to 
the SET instruction), and 


2% no one item in the data list is not itself 
longer than the specified page width. 


This can happen when items in a PRINT list are 
separated by commas or a PRINT instruction is 
terminated with a comma or semicolon and a 
subsequent PRINT instruction adds to the already 
PRINTed line. This rule also applies to the PRINT 
instruction when used to send output to the 
console, 


A PRINT list containing an item which is longer 
than the page width will cause a run time error. 
The default page width is 8@ characters. It is 
possible to change this parameter by using the SET 
instruction, 


Sequential Files 


A sequential file is written in the order of the 
record numbers. That is, record number zero is 
written with the first output (PUT or PRINT) 
instruction, record number one is written next, 
then record number two, etc. This continues until 
the file is CLOSEd. When the file is OPENed again, 
the first record which is output will write over 
record number zero, etc. 


When a file is read sequentially, record zero is 
read first, then record one, etc. 


Note that if an entire record is not input or 
output each time the file is accessed, the File 
Pointer will remain after the last character which 
was read or written. Any subsequent file access 


165 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 
15. Discussion - Data File Input/Output 


15.19 


15.11 


will read or write from that position, not from the 
beginning of the next record. 


Random Files 


A random access file is written in the order 
specified by the programmer. Each output 
instruction must specify the number of the record 
which is to be written. When a file is read 
randomly, the programmer must specify the record 
number to be read for each INPUT or GET 
instruction. 


A file which was written to sequentially may be 
read as a random file. Files which were written to 
randomly may be read by sequential or random 
instructions provided that no attempt is made to 
read a record before it has been written. 


A file may be accessed by any combination of 
sequential and random instructions. 


A random instruction, one that specifies a record 
or record and byte number, will reposition the File 
Pointer before accessing the file. 


A sequential instruction, one that does not specify 
a record number, will access the disk from the 
current position of the File Pointer. 


CDOS DUMP Utility 


The CDOS DUMP utility program is very useful for 
determining exactly what is being sent to a file. 
The user must exit from BASIC in order to use this 
program. Refer to the CDOS manual, Utility 
Programs - DUMP, for further information. 
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instruction: CREATE 
format: {Ln] CREATE file-ref 


where: 
Ln is an optional line number 


file-ref includes the 1 to 8 character 
file name and optionally a disk 
drive specifier and file name 
extension. 


The CREATE instruction places the file name (and 
file name extension) in the directory of the 
specified disk. A file may only be created once, 
and must be CREATEd before it can be OPENed. 


Notes: 


1. The disk drive specifier and/or the file name 
and/or the file name extension may be a string 
variable or a string literal. 


2. The file name and file name extension may 


include any printable ASCII character except 
the following: 


$ * 2? =/., : - "space" 


3. No space is allocated to a file by the CREATE 
instruction, All file space under CDOS is 
dynamically allocated only when and where 
needed. 


4. Error Number 137 (File Already Exists) will 
result if the file already exists in the 
directory when the CREATE instruction is 
given. 
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instruction: OPEN 
format: [Ln] OPEN\n\ file-ref 
[Ln] OPEN\n,pl\ file-ref 


[Ln] OPEN\n,pl,p2\ file-ref 


where: 
Ln is an optional line number 
n is the required file (channel) 
number, 
pl (for a disk file) is the 


optional record size in bytes 
which may be assigned any value 
between 1 and 32,767. The 
default value is 128 bytes per 
record (one sector). 


p2 (for a disk file) is the 
optional file access mode 
specifier: 


=l1 is read only 

=2 is write only 

=3 is read and write 
(default value) 


file-ref includes the 1 to 8 character 
file name and optionally a disk 
drive specifier and file name 
extension. 


The OPEN instruction allows a disk file or system 
device to be linked to a file number (channel) for 
future reference in connection with file 
input/output instructions (i.e., PUT, GET, INPUT, 
PRINT, CLOSE). 


Notes: 


l. The disk drive specifier and/or the file name 
and/or the file name extension may be a string 
variable or a string literal. 


2. The file name and file name extension may 
include any printable ASCII character except 
the following: 
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$* 2? =/.,: - "space" 


The file number must be between 1 and the 
maximum channel number available. As disk 
BASIC is shipped, the maximum channel number 
is 4. See the Appendix for the method of 
changing the number of channels available. 


Error number 133 (File Number) will result if 


an attempt is made to reference a file number: 


greater than the maximum channel number 
available. 


The file number @ (zero) is reserved for the 
console. It cannot be OPENed by the user. 
All Input/Output (GET, INPUT, PUT, and PRINT) 
directed from/to file @ will use the console. 


Caution, if file number @ is specified by the 
CLOSE instruction, all currently OPENed files 
will be CLOSEd. 


Although files OPENed for read/write access 
may be used as write only files, slightly 
faster execution speed may result if the file 
is OPENed for write only access. 


If the PRINT instruction is used to write a 
single item which is longer than the current 
page width, it will be necessary to increase 
the page width (using the SET instruction) in 
order to avoid Error number 6 (PRINT ITEM 
SIZE). Refer to the discussion section of 
this chapter for additional information. 
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instruction: CLOSE 
format: {Ln] CLOSE 
[Ln] CLOSE \n\ 


where: 
Ln is an optional line number 


n is an optional file (channel) 
number. The default value is 
ALL currently OPENed files. 


The CLOSE instruction disassociates the channel 
number and file which were associated by the OPEN 
instruction. 


Note: 
If the CLOSE instruction is given either without a 


file number or with the file number set equal to @ 
(zero), all currently OPENed files will be CLOSEd. 
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instruction: PRINT 
format: {Ln] PRINT 

[Ln] PRINT exp-l,...,exp-n 
[Ln] PRINT\n\ 
[Ln] PRINT\n,pl\ 
[Ln] PRINT\n,pl,p2\ 
[Ln] PRINT\n\ exp-l,...,exp-n 
[Ln] PRINT\n,pl\ exp,...,exp-n 


[Ln] PRINT\n,pl,p2\ exp-l,...,exp-n 
Ln is an optional line number 


where: 


n is an optional file number. I€ 
no file number is specified, or 
if the file number is zero, 

output goes to the console 
C terminal. 


pl (for a disk file) is the 
optional record number. The 
default value is sequential 
access starting with record @ or 
the current position of the File 
Pointer. 


p2 (for a disk file) is the 
optional byte number. The 
default value is byte @g. 


expl-n is an optional list of numeric 
"or string expressions, numeric 
or string variables, or string 
literals. The data list must be 
separated by either semicolons 
or commas. If an item is 
followed by a comma, the item 
following it will be printed 
Starting in the next tab 
position; if it is followed by a 
semicolon no space will be left 
before printing the next item. 


When used without a file reference, the PRINT 
instruction will cause the data list to be output 


- 
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to the console. When used with a file reference, 
it will cause the data list to be output to an 
ASCII device (e.g., the line printer) or a disk 
file in ASCII format. 


Notes: 


IT IS RECOMMENDED THAT PRINT ONLY BE USED FOR THE 
OUTPUT OF PRINT OR LIST FILES AND NOT BE USED FOR 
WRITING DATA FILES WHICH ARE TO BE READ BACK BY A 
BASIC PROGRAM. 


l. The at (@) sign may be used to abbreviate the 
word PRINT in this instruction. 


2% Most of the above forms of the PRINT 
instruction may incorporate the PRINT USING 
feature. Refer to PRINT USING for additional 
information. 


3: The PRINT instruction outputs a carriage 
return-line feed (9D, @A hex) sequence at the 
end of the data list. If the file is to be 
read in using the INPUT instruction, a CR-LF 
sequence (or just a CR) must follow each item 
which is output, as it is this character or 
character sequence which delimits (terminates) 
each item. In BASIC, there are two ways this 
can be accomplished: 


a. Allow only one item per PRINT 
instruction. 


b. Insert a CR between each item as follows: 


198 AS = CHR$(13) 
208 PRINT \1\ "STRING"; AS; Nl; AS; OS 


Statement 198 assigns the hexadecimal value of 
the CR to the string variable AS. Statement 
208 PRINTS a string literal, a numeric 
variable, and a string variable, each 
separated by the CR. 


The above procedure will allow all of the 
items output by the PRINT instruction to be 
read by the INPUT instruction which looks for 
a CR between each item read. 

If only numeric data is to be PRINTed and 
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INPUT a comma (ASCII 44) may be used as a 
delimiter between variables within one INPUT 
list. The last item in the data list must be 
delimited by a CR. 


4. Specifying a negative number for either pl or 
p2 will result in the default value being 
assigned to that parameter. 


5. The PRINT instruction, when given without a 


data list, causes one blank line to be sent to 
the console or a PRINT file. 
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instruction: INPUT 
format: [Ln] INPUT var-1l,...,var-n 
[Ln] INPUT\n\ var-1,...,var-n 
[Ln] INPUT\n,pl\ var,...,var-n 


where: [Ln] INPUT\n,pl,p2\ var-1,...,var—-n 


Ln is an optional line number 


n is an optional file number. If 
no file number is specified, or 
if the file number is Zero, 
input is received from the 
console terminal. 


pl (for a disk file) is the 
optional record number. The 
default value is sequential 
access starting with record @ or 
the current position of the File 

Pointer. 


p2 (for a disk file) is the 
optional byte number. The 
default value is byte @. 


varl-n is a list of one or more numeric 
or string variables. 


When used without a file reference, the INPUT 
instruction will cause the data list to be INPUT 
from the console. When used with a file reference, 
it will cause the list to be INPUT from an ASCII 
device (e.g., paper tape reader) or a disk file in 
ASCII format. 


Notes: 


l. When a string variable is used with an INPUT 
instruction, the portion of the string which 
is referenced is set equal to null characters 
before the source is moved into the string 
variable. The whole string is referenced if 
no subscripts follow the string variable, 
while various substrings may be referenced by 
the use of subscripts. Refer to section 
5.2.3, Referencing String Variables, for a 
complete discussion of the subject. The INPUT 
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instruction will not move more characters than 
can be accepted by the destination string or 


substring which is being referenced. 


2. INPUT can accept no more than 132 characters 


per line. 


3. INPUT retrieves only 7 bit ASCII. 


The GET 


instruction must be used to retrieve all 8 


bits. 


4. INPUT treats some control characters as 


editing or end of file commands. 
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instruction: PUT 
format: [Ln] PUT\n\ 
{Ln] PUT\n\ exp-l,...,exp-n 
{Ln] PUT\n,pl\ exp,...,exp-n 


[Ln] PUT\n,pl,p2\ exp-l, eee ,OCXP-N 
where: 


Ln is an optional line number 


n is a file number. If file 
number @ is used, output will be 
set to the console. 


pl (for a disk file) is the 
optional record number. The 
default value is sequential 
access starting with record @ or 
the current position of the File 
Pointer. 


p2 (for a disk file) is the 
optional byte number. The 
default value is byte @. 


expl-n is an optional list of numeric 
or string expressions, numeric 
or string variables, or string 
literals. 


The PUT instruction outPUTs the data in the data 
list (exp-l,...exp-n) to the file specified by the 
file number (n). The data is output in internal 
machine format. This is useful if the data is to 
be read back by BASIC. The PRINT instruction 
should be used if the file is to be TYPEd or listed 
to the printer. 


Notes: 


l. If no outPUT list is included, only the device 
status is set (i.e., record and byte position 
on a disk file). This is a useful way of 
setting status (position) without actually 
initiating any data transfer. 


2. The PUT instruction will output data to a file 
in internal machine format (see notes at the 
beginning of this chapter on Internal Machine 
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vs. ASCII Representation). Numeric data which 
has been output using the PUT instruction 


must be read back in using the GET 


instruction. 


ASCII data which is output by the put 
instruction will not be readable by INPUT 
unless a CR appears at least every 132 bytes. 
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instruction: GET 
format: [Ln] GET\n\ exp-l,...,exp-n 
{Ln] GET\n,pl\ exp,...,exp-n 


{Ln] GET\n,pl,p2\ exp-l,...,exp-n 
where: 
Ln is an optional line number 


n is a file number. If file 
number @ is used, input will be 
accepted from the console. 


pl (for a disk file) is the 
optional record number. The 
default value is sequential 
access starting with record @ or 
the current position of the File 
Pointer. 


p2 (for a disk file) is the 
optional byte number. The 
default value is byte @. 


expl-n is an optional list of numeric 
or string expressions, numeric 
or string variables, or string 
literals. 


The GET instruction GETs the data in the data list 
(exp-l,...exp-n) from the file specified by the 
file number (n). The data is input without 
translation (internal machine format). This is 
useful if the data has been outPUT by the PUT 


instruction. 
Note: 
1. When a string variable is used with a GET 


instruction, the portion of the string which 
is referenced is set equal to null characters 
before the source is moved into the string 
variable. The whole string is referenced if 
no subscripts follow the string variable, 
while various substrings may be referenced by 
the use of subscripts. Refer to section 
5.2.3, Referencing String Variables, for a 
complete discussion of the subject. The GET 
instruction will not move more characters than 
can be accepted by the destination string or 
substring which is being referenced. 
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PROGRAMMED FUNCTIONS 


Cromemco 16K Extended BASIC includes a number of 
arithmetic and trigonometric functions which 
perform common, frequently used calculations, 
These functions are pre-defined in BASIC so that 
the programmer does not need to write a program 
everytime one of these functions is required. 


Cromemco BASIC also includes a number of functions 
designed to increase string handling capabilities, 
a number of system functions which provide general 
system information, and a function which makes it 
possible to call assembly language subroutines. 


In addition to these pre-defined functions, 
Cromemco BASIC permits the programmer to define up 
to 26 additional functions. 


Cromemco 16K BASIC includes the following 
functions: 


16.1 Arithmetic Functions 
ABS (X) absolute value of X 
BINAND (X,Y) binary logical AND 
BINOR (X,Y) binary logical OR 
BINXOR (X,Y) binary logical EXCLUSIVE OR 
EXP (X) the value "e" to the power X 
FRA (X) the fractional portion of X 
INT (X) integer value of X 
IRN (X) generates an integer random 


number between @ and 32767 


LOG (X) natural logarithm of X 
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MAX (X1,.,Xn) returns the numeric expression 
Xn with the maximum value in 
the expression list 


MIN (X1,.,Xn) returns the numeric expression 
Xn with the minimum value in 
the expression list 

RANDOMIZE used with RND and IRN to 


produce different sets of 
random numbers 


RND (X) generates a random number 
between 8 and 1 


SGN (X) algebraic sign of X 


SOR (xX) square root of X 


16.2 Trigonometric Functions 


ATN (X) arctangent of X ( 
COS (X) cosine of X 
SIN (X) sine of X 
TAN (X) tangent of X 
16.3 Programmer Defined Functions 


DEF FNs (X1,...,Xn) = Y 
allows the user to define up to 
26 different functions 


16.4 String Functions 


ASC (X$) provides equivalent ASCII 
numeric value of the first 
character of XS 


CHRS (X) gives a single character string 
which is the ASCII equivalent 
of X @ 
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LEN (X$) 


POS (X$,Y$,n) 


STRS (X) 


VAL (X$) 


Descriptions and 


returns the length of string 
XS. 


determines the location of a 
substring (Y$) within a string 
(X$) by returning the value of 
the position at which the first 
character of the substring is 
located starting with character 
n. 


converts any numeric expression 
X to a string which is the 
character representation of X. 


converts any string expression 


xX $ to the numeric 
representation of XS. 


examples of each of these 


functions are included in the following section. 


Also see Chapters 17 and 18 for descriptions of 
additional functions. 
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function: ABSolute value 
format: ABS (aexp) 


where: 
aexp is an arithmetic expression, 
variable, or constant. 


The ABS function gives the absolute (i.e., 
positive) value of xX, which can be any numeric 
expression. 


Example: 
>>LIST 
1@ PRINT ARS (-26), ABS (26) 
28 END 
>>RUN 
26 26 


**k*IQ END*** 
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functions: BINAND 
BINOR 
BINXOR 
format: BINAND(aexp-l,aexp-2) 
BINOR (aexp-1,aexp-2) 
BINXOR (aexp-1,aexp-2) 


where: 
aexpl-2 are arithmetic expressions, 
variables, or constants. 


The BINAND, BINOR, BINXOR functions perform logical 
operations bit by bit on 16-bit operands. 


BINAND performs a BINary AND logical operation on 
aexp-l and aexp-2. It returns al bit in a given 
position if both bits are equal to 1 and a @ 
otherwise. 


BINOR performs a BINary OR logical operation on 
aexp-l and aexp-2. It returns a 1 bit in a given 
position if either bit is equal to 1 and a @ 
otherwise. 


BINXOR performs a BINary exclusive OR logical 
operation on aexp-l and aexp-2. It returns al bit 
in a given position if either bit is equal to 1 and 
the other bit is equal to @. A @® is returned 
otherwise. 


Notes: 


l. If necessary, aexp-l and/or aexp-2 will be 
converted to 16 bit integers for the purpose 
of these functions. 


2. Refer to section 6.4 for a discussion of 
boolean operators. 
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function: EXPonent 
format: EXP (aexp) 


where: 
aexp is an arithmetic expression, 
variable or constant. 


The EXP function calculates the value of the 
constant e (where e = 2.71828...) raised to the 
aexpth power. 


Example: 
>>LIST 


18 A=4.1 

28 B=EXP (A) 
38 PRINT B 
48 END 


>>RUN 


68.346287597344 
*kkKAQ END*** 
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function: FRActional portion 
format: FRA (aexp) 


where: 
aexp is an arithmetic expression, 


variable or constant. 
The FRA function. returns the fractional portion of 
aexp. 
Example: 
>>LIST 
19 B=3.7 


26 PRINT FRA(B) 
38 END 


>>RUN 
0.7 
***3Q END*** 
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function: INTeger portion 
format: INT (aexp) 


where: 
aexp is an arithmetic expression, 
variable or constant. 


The INT function returns the largest integer value 
which is less than or equal to aexp. 


Examples: 
>>LIST 


100 A=5.7 
208 PRINT INT(A) 
308 END 


>>RUN 
5 

***399 END*** 
>>PRINT INT (-5.7) 
-6 
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ae ™ 


function: Integer Random Number generator 
format: IRN (X) 


where: 
X is a dummy argument. 


The IRN function generates an integer random number 
between @ and +32767. 


Note: 


1. To change the sequence of random numbers, the 
RANDOMIZE instruction should be included in 
the program. 


Example: 
>>LIST 


1@ FOR N=1 TO 190 
28 PRINT IRN (6) 
38 NEXT N 

48 END 


>>RUN 
29284 
25861 
18835 
4647 
9295 
18846 
4924 
18195 
20218 
7652 
*kKAQ END*** 


The program listed above will print out 18 integer 
random numbers. If this program is run a second 
time, it will generate the same 18 random numbers. 
A different set of random numbers will be generated 
only if a RANDOMIZE statement is included at the 
beginning of the program. 
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function: LOGarithm 
format: LOG (aexp) 


where: 
aexp is an arithmetic expression, 
variable or constant. 


The LOG function calculates the natural logarithm 
(i.e., log to the base e) of aexp. 


Notes: 


1. The logarithm base 1@ for aexp can be computed 
as follows: 


log base 1@8(aexp) = LOG (aexp) / LOG (19) 


Example: 
>>LIST 


10 INPUT A ( 
2@ B=LOG(A) 

36 PRINT B 

48 END 


>>RUN 

? 3.2 
1.1631588898856 
*k*AQ END*** 
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function: MAXimum value 
format: MAX (aexp-l,...,aexp-n) 


where: 
aexpl-n are arithmetic expressions, 
variables, or constants. 


The MAX function examines the list of arithmetic 
expressions (aexp-l through aexp-n) and returns the 
value of the largest expression. 


Example: 
>>LIST 


18 X=10 

20 Y=25 

38 M=MAX (X,Y) 
4Q PRINT M 

58 END 


***5Q END*** 
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function: MINimum value 
format: MIN (aexp-1,...,aexp-n) 


where: 
aexpl-n are arithmetic expressions, 
variables, or constants. 


The MIN function examines the list of arithmetic 
expressions (aexp-l through aexp-n) and returns the 
value of the smallest expression. 


Example: 

>>LIST 
18 X=5 
28 Y=19 
30 M=MIN (X,Y) 
48 PRINT M 
5@ END 

>>RUN 

5 


**k*SQ END*** 
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instruction: RANDOMIZE 
format: {Ln] RANDOMIZE 


where: 
Ln is an optional line number. 


The RANDOMIZE instruction is used to reset the 
random number dummy variable used by the RND and 
IRN functions so that a different sequence of 
random numbers will be produced each time the RND 
and IRN functions are used. 


Notes: 


Ls RANDOMIZE should be used only once within a 
program utilizing RND to ensure that a truly 
random sequence of numbers results. 


2. RANDOMIZE shold be used after generating every 
1908 numbers using IRN. This will ensure a 
truly random sequence of numbers. 


Example: 
>>LIST 


1@ PRINT "THIS IS A RANDOM NUMBER "; 
20 RANDOMIZE 

38 PRINT RND (6) 

49 END 


>>RUN 

THIS IS A RANDOM NUMBER @.7137712225 
*kk*KAQ END*** 

>>RUN 

THIS IS A RANDOM NUMBER @.81719786825 
*k*KAQ END*** 


This program will print a different random number 
everytime the program is RUN. 
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function: RaNDom number generator 
format: RND (X) 


where: 
X is a dummy argument. 


The RND function generates a random number in the 
range ®@ < RND(®) < l. 


Examples: 
>>LIST 


18 FOR N=1 TO 188 
28 PRINT RND(2) 
38 NEXT N 

4% END 


The above. example will print out 148 random 
numbers. If this program is run a second time, it 
will generate the same 198 random numbers. To 
generate a new set of random numbers each time the 
program is run, the above example can be rewritten 
as follows: 


>>LIST 


18 RANDOMIZE 

26 FOR N=1 TO 180 
38 PRINT RND(2) 
40 NEXT N 

5@ END 
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function: SiGN 
format: SGN (aexp) 


where: 
: aexp is an arithmetic expression, 
variable or constant. 


The SGN function returns a +1 if the value of the 
expression aexp is greater than 9, a ® if aexp 
equals @, and a -1 if aexp is less than @. 


Example: 
>>LIST 


18 INPUT A,B,C 
20 PRINT SGN(A) 
38 PRINT SGN (B) 
48 PRINT SGN(C) 
58 END 


e >>RUN 
: ? -12,0,14 
-1 
0 
1 
*#*k*59 END¥** 
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function: SQuaRe root 
format: SQR (aexp) 
where: 
aexp is an arithmetic expression, 
variable or constant. 
The SOR function calculates the square root of any 
positive expression. 


Example: 


>>PRINT SQR(9) 
3 
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function: ArcTaNgent 
format: ATN (aexp) 
where: 
aexp is an arithmetic expression, 
variable or constant. 
The ATN function calculates the arctangent of 
aexp. 
Note: 
l. Although 16K BASIC does not include predefined 


ARCSIN and ARCCOS functions, the user can 
calculate these using the ATN function as 


follows: 

ARCSIN (X) = ATN (X/SOR (-X*X+41) ) 

ARCCOS (X) = -ATN (X/SOR(-X*X+41))+2. *ATN(1.) 
Example: 

>>PRINT ATN(.82) 

®.67474094222353 


In this example the arctangent of .80 is equal to 
6747994222353 radians. If the DEGree mode is 
selected, the arctangent of .88 is given in 
degrees: 


>>DEG 


>>PRINT ATN(.89) 
38.659888254987 
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function: cCOSine 
format: COS (aexp) 
where: 
aexp is an arithmetic expression, 


variable or constant. 


The COS function calculates the cosine of the angle 
represented by aexp. 


Notes: 
1. See ATN for a description of how to calculate 
ARCCOS. 
2. Unless DEG mode has been selected, it is 
assumed that the value of aexp is expressed in 
‘RADians. 
Example: 
>>LIST . 
18 INPUT A 
2@ LET B=A*2 
38 PRINT COS (B) 
49 END 
>>RUN 
? .68 


@.36235775447529 
*#**AQ END*** 


In this example, the cosine of a 1.28 radian angle 
is .36235775447529. 
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function: SINe 
format: SIN (aexp) 
where: 
aexp is an arithmetic expression, 


variable or constant. 


The SIN function calculates the sine of an angle 
represented by aexp. 


Notes: 

1. See ATN for a description of how to calculate 
ARCSIN. 

2. It is assumed that the value of aexp is 


expressed in RADians unless the DEG mode has 
been specified. 


Examples: 
>>LIST 


10 INPUT A 


28 PRINT SIN(A*3) 
3@ END 


>>RUN 

? .O4 
@.11971228728892 
*KK3Q END*** 


In this example, the sine of a .12 radian angle is 
approximately .12. 


In the following example, we first select the DEG 
mode and then request the program to print the sine 


of a 98 degree angle: 
>>LIST 
5 DEG 
18 PRINT SIN(9@) 
28 END 
>>RUN 
1 
*EK2Q END*¥** 
The sine of a 99 degree angle is 1.0. 
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function: TANgent 
format: TAN (aexp) 
where: 


aexp is an arithmetic expression, 
variable or constant. 


The TAN function calculates the tangent of the 
angle represented by aexp. 

Note: 

1. It is assumed that the value of aexp is 


expressed in RADians unless the DEGree mode 
has been specified. 


Example: 
>>LIST 


5 DEG 
19 PRINT TAN (386) 
28 END 


>>RUN 


@.577358269189 
***29 END*** 
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function: Programmer Defined 


format: DEF FNs (avar-l,avar-2,...,avar—n) =aexp 


where: 


s is any single ASCII character 


(A-Z). 


avarl-n are arithmetic variables. 


aexp is an arithmetic 


expression, 
variable, or constant. 


The DEF function permits the programmer to define 
up to 26 functions in addition to the pre-defined 


functions included in BASIC. 


Notes: 


1. The definition of a function must be a 
statement which is encountered during the 
execution of a program in order for BASIC to 
retain the definition. After the function has 


been defined, it may be used 
line. 


in a command 


2 Any of the variables used in the definition of 


a function (avar-1l through avar-n) 


are local 


to the function. Their use in the definition 
does not conflict with a variable of the same 
name appearing elsewhere in the program. 


If a variable appears on the right side of the 
definition without appearing on the left, it 
is a global variable and maintains its value 


through a function call. 
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Examples: 
>>LIST 


1% X=26 

28 Y=19 

38 Z=5 

46 DEF FNR(A,B,C)=A*B+C 
5@ PRINT FNR (X,Y,2Z) 

68 END 


>>RUN 
285 
*KEGQ END*** 


In the above example, variables X, Y, and Z are 
global variables while A, B, and C are local to the 
definition of the function. 


The following example should help to clear up any 
confusion between local and global variables. 


>>LIST 
100 DEF FNZ (P) = P * D ( 
200 P = 77 
300 D=5 
490 BE = 10 


580 PRINT FNZ (E) 
680 PRINT P 
768 END 


>>RUN 

59 

77 

***709 END*** 


In the above example, statement 198 defines the 

function FNZ in terms of the formal parameter 

(function definition variable) P and the program 

variable D. In statement 100 P is called a 

function definition variable because it appears to 

the left of the equal sign in the function 

definition. As such, P can not be accessed by the 

user. The program variable (P) defined by 

Statement 268 is a different variable than the 
aforementioned function definition variable, and 

can be accessed by the user. According to the 

above definitions, D, appearing in statement 1890, “3 
is a program variable. In statements 399, 408, and \ 
59@ program variables P, D, and E are assigned sa 
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values. 


In statement 508, the value of the function FNZ is 
computed using the value of E to replace P in the 
definition of the function. Being a program 
variable, D maintains its value in the calculation 
of the value of the function. Once the value of 
the function has been calculated, its value is 
printed. - 


Statement 6908 prints the value of the program 
variable P to demonstrate that the program variable 
P can be accessed by the user, that it maintains 
its value through the function call, and that it is 
a different variable than the function definition 
variable P. 
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function: ASCii value of a character 
format: ASC (Svar) 


where: 
svar is a string variable or literal. 


The ASC function gives the ASCII decimal value of 
the first character of any string expression. 
Note: 
1. See the Appendix for a table of ASCII 
characters and their values. 
Example: 
>>LIST 
19 INPUT x$ 


28 PRINT ASC(XS$) 
38 END 


**KKIZQ END*** 


In this example, the ASCII decimal value for the 
first character of the string variable x$ 
(character A) is 65. 
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function: CHaRacter 
format: CHRS (aexpr) 


where: 


aexpr is an arithmetic expression, 
variable, or constant. 


The CHR$ function returns the single character 
which is represented in ASCII by aexpr. 


Notes: 


Le If aexpr is outside of the range O<aexpr<255 
an error will be generated. 


2. This function allows the user to draw graphs 
or figures with special characters. The 
function may also be used to initiate special 
functions such as cursor positioning, 
generating line or form feeds, or causing a 
bell to sound on the terminal. 


3. This function may be used to output non- 
' printing and special purpose characters such 
aS control or underline characters. 


4. CHR$ may be used any place a string is 
required. 


Example: 
>>LIST 
1@ INPUT X 


2@ PRINT CHRS (X) 
38 END 


***3Q END*** 


The ASCII decimal value 42 is equivalent to the 
character *, Thus, in the above example, the 
instruction PRINT CHRS$ (42) instructs the computer 
to output the character * on the terminal. 
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function: LENgth of: string 
format: LEN (Svar) 
where: 
svar is a string variable or literal. 
The LEN function returns an integer value which is 
equal to the number of characters in any string 
variable XS. In other words, the LEN function 
gives the length of a string. 
Note: 
1. Both characters and spaces are counted as part 
of the length. Trailing null characters are 
not counted as part of the string length. 
Example: 
>>LIST 
1@ DIM X$ (28) ,Y$ (38) 
28 INPUT X$,YS$ 
30 @"THERE ARE "; LEN(X$); " CHARACTERS IN xs" 
48 @"THERE ARE "; LEN(Y$); " CHARACTERS IN Y$" 
58 END 
>>RUN 
? EXAMPLE 
?2? LENGTH COMMAND 
THERE ARE 7 CHARACTERS IN XS 
THERE ARE 14 CHARACTERS IN YS$ 
REKOG END*** 
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function: POSition 


format: POS (svar-1,svar-2,,aexp) 


where: 
svar-l is a string variable or literal 
Svar-2 is a substring variable or 
literal 
aexp is an arithmetic expression, 


variable, or constant 


The POS function is used to locate the position 
within a string (X$) of the substring (Y$). The 
position within the string X$ at which the search 
is to begin is specified by the arithmetic 
expression aexp. This function gives a value equal 
to the position of the first character of the 
substring within the string. 


Notes: 
Le A -1 is returned if the substring is not 
found. 


2 Remember that the first element of a string is 
numbered @. 


Example: 
>>LIST 


18 DIM XS (5@) 

28 X$="THIS IS A SUBSTRING SEARCH" 
30 P=POS (X$,"IS",4) 

49 R=POS (X$,"R",28) 

5@ PRINT P 

6@ PRINT R 

70 END 


*kkKTQ END*** 


In this example, the computer is first instructed 
to search for "IS" starting from the fourth 
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character in X$ and second to search for "R" 
starting from the twentieth character in XS. 
Starting from position 4, the first character in 
substring "IS" is located in position 5. Starting 
from position 28, the first character "R" is 
located in position 23. Consequently, the computer 
returns a value of 5 for P and 23 for R. 


A very useful application of this function is the 
conversion of numbers from hexadecimal to decimal. 
The following program demonstrates the principle 
using a one digit number: 


>>LIST 


1808 DIM AS(®@) 

119% INPUT “One digit hex number: ",AS$ 
1208 D = POS ("@123456789ABCDEF", AS, @) 
1306 IF D = -1 THEN GOTO 1190 

1496 PRINT "The decimal equivalent is: ":D 
1588 GOTO 1180 

1688 END 
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function: STRing 
format: STRS (aexp) 


where: 


aexp is an arithmetic expression, 
variable, or constant. 


The STRS$ function converts aexp to a string which 
is the ASCII representation of the expression. 


Note: 


l. Valid input to this function include the 
decimal point (.) and a leading plus (+) or 
minus (-) sign. 


Qe STRS may be used anyplace a string is 
required. 


Example: 
>>LIST 


18 INPUT A 
20 AS=STRS (A) 
36 PRINT AS 
4% END 


_>>RUN 
? 8.45 


8.45 
**kAQ END*** 
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function: VALue 
format: VAL (svar) 


where: 
svar is a string variable or literal. 


The VAL function converts a string (svar) into a 
numeric variable which may be used in arithmetic 
expressions. 


Notes: 


l. If the argument string for VAL consists of 
both numeric and non-numeric information, the 
following conventions hold: 


ae If the first character is non-numeric, 
VAL will return a zero value (this can be 
an extremely useful way of decoding a 
user's input). The first character is 
considered to be numeric if it is the 
leading percent sign (%) of a legal ( 
hexadecimal constant. 


b. If the first character or characters are 
numeric they will be converted without 
consideration of the portion of the 
String after the first non-numeric 
character. 


Example: 
>>LIST 


18 X$="26.6321" 
20 A=1 

3@ B=A+VAL (XS) 
49 PRINT B 

5@ END 


>>RUN 


27.6321 
**k*5Q9 END*** 
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command: DiSK 


format: DSK 
DSK "Xx" 


where: 
xX is a disk drive specifier (1, 2, 
3, 4, A, B, C, or D) or the at 
sign or zero (@ or Q@). 


The DSK instruction displays or alters the current 
system default disk drive. 


Notes: 


1. When used without a disk drive specifier, DSK 
displays the current disk drive identifier. 


While a program is RUNning, DSK will not 
display anything. Use IOSTAT (8,8) to 
determine the current drive while in the RUN 
mode. 


° 2% When used with a disk drive specifier, DSK 
changes the current system default disk drive. 
The following is a list of equivalent disk 
drive specifiers: 


A: or l 
Bs or 2 
C: or 3 
D: or 4 


The above specifiers may be enclosed in 
quotation marks (string literal) or assigned 
to a string variable. 


New disks are not logged in by changing the 
default disk drive. See the following note 
for the method of logging in a new disk from 
BASIC. 


3s When used with the at sign or zero (@ or 8), 

DSK logs in a new disk (after it has been 
inserted in any drive) and causes drive A to 
become the current system default disk drive. 
The effect of this is similar to typing CTRL-C 

, while in CDOS. 

‘ I = IOSTAT (6,0): DSK "@": DSK CHRS$ (I) 

- will preserve the current drive while 
performing a logical CTRL-C (logging in a new 
disk). 289 
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instruction: ECHO 
format: {Ln] ECHO 


where: 
Ln is an optional line number. 


The ECHO instruction is used to re-enable the 
display of certain information at the console 
terminal after the display has been disabled by the 
NOECHO instruction, 
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instruction: NO ECHO 
format: {Ln] NOECHO 


where: 
Ln is an optional line number. 


The NOECHO instruction is used to disable the 


display of user entered responses to the INPUT 
instruction. 


Notes: 


1. This instruction is useful when a secret code 
or password is to be INPUT. The code will not 
be displayed on the screen, making theft of 
the code almost impossible. 


2. The NO ECHO mode is NOT reset by the RUN or 
SCRatch instructions. 


Example: 
>>LIST 


188 NOECHO 
200 INPUT X 
380 PRINT X 


4990 END 
>>RUN 
? (user entered INPUT is not 
displayed) 
517 (the value of X is PRINTed by the 


PRINT statement) 
**k*kAQQ END*** 
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instruction: ERASE 
format: {Ln] ERASE svar 


where: 
Ln is an optional line number. 


svar is a string literal or string 
variable file reference. 


The ERASE instruction will remove a file from the 
file directory. 


Examples: 


ERASE "TEMP.BAS" 
ERASE "*.BAK" 
ERASE "B:TEMP.REL" 


The first of these examples will ERASE the file 
named TEMP.BAS from the current or default disk 
drive. The second will ERASE all files from the 
current disk drive with the file name extension of 
BAK. The third example will erase the file called 
TEMP.REL from the disk in the B drive. 
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instruction: ESCape 


format: {[Ln] ESC 


where: 
Ln is an optional line number. 


The ESC instruction is used to re-enable ESCape key 


operation after it has been disabled by the NOESC 
instruction. 
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instruction: NOESCape 
format: {Ln] NOESC 


wheres 
Ln is an optional line number. 


The NOESCape instruction disables the console 
terminal escape key operation. 


Notes: 


1. Most terminal keyboards include a key labeled 
ESC. BASIC recognizes the ESCape character as 
a signal to abort program execution and return 
to the command mode. The NOESC instruction is 
used to prevent program interruption when the 
ESC key is pressed. 


26 ESCape results from the use of the CTRL-Z, 
ESC, or CTRL-[ key. 


3% Most programs will execute significantly 
faster when the operation of the ESCape key 
has been disabled by the NOESC instruction. 
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function: FREe space 
format: FRE (xX) 


where: 
xX is a dummy argument, 


The FRE function gives the number of bytes of 
memory in the User Area which are currently free or 


unused. 


Notes: 


Des Certain statements do not occupy their 
space until after they have been executed 


(e.g., DIM). 


2. Because BASIC allocates space for its internal 
tables in segments, the FRE function is only 
an approximation of the actual number of bytes 


available to the user. 


3. Space recovered from DELETEd 


available for new program lines, 
arrays or variables. Thus, the FRE function 
will not necessarily reflect available program 


space, 


If statement lines have been DELETEd from the 
User Area, it will be necessary to perform the 


following procedure in order 
function to reflect the change: 


a) LIST the program (do not SAVE 


temporary disk file. 
b) SCRatch the User Area. 
c) ENTER the temporary disk file. 


a) Type PRINT FRE(X). 
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function: IOSTATus 


format: {(Ln] IOSTAT (aexpr-l, aexpr-2) 


where: 


Ln is an optional line number. 
aexpr-l is a file (channel) number. 


aexpr-2 is the status parameter. 


The IOSTAT function returns the current status of 
an opened BASIC file. 


Status Returned 
Parameter Value Meaning 

g i) File is ok. 

1 End of File. 

2 Attempt to read an unwritten 
segment during a random 
access read. 

1 X X is the current sector 
number. (This is not the 
record number.) 

2 Y Y is the current byte number 
within sector X (above). 

Notes: 

1. Devices other than disk drives may or may not 
return status values. 

2. IOSTAT(®,@) will return the current disk 
number. Disk A=1, B=2, C=3, and D=4. 

3. If R is the record size of file F, the 


expression: 
INT ((128.@ * IOSTAT (F,1) + IOSTAT (F,2))/R) 


will give the current record number. A 
similar expression will yield the current byte 


within the current record. 
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instruction: ON ERROR 
format: {Ln] ON ERROR STOP 
{Ln] ON ERROR GOTO nl 
[Ln] ON ERROR GOSUB nl 


where: 
Ln is an optional line number. 


nl is the line number of the 
statement to which control is 
transferred. 


The ON ERROR instruction causes program control to 
be transferred as specified (STOP, GOTO, or GOSUB) 
when a non-fatal error occurs during program 
execution. 


Notes: 


/ Ly A non-fatal error in BASIC is any error listed 
in the error table (see Appendix A) with a 
number of 128 or greater. Errors numbered 127 
and below are defined as fatal errors and 
cannot be trapped with an ON ERROR statement. 


2. If ON ERROR is written at the beginning of a 
program, the instruction specified with ON 
ERROR will be executed each time a program 
error occurs. If placed elsewhere in the 
program, the statement will be executed only 
for errors which occur during the execution of 
statements following the execution of the ON 
ERROR statement. 


3. ON ERROR is reset by RUN and SCRatch 
instructions. 
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Example: 


6d 

8G 
188 
120 
149 
168 
398 
320 


INPUT A,B 
PRINT A*B 

ON ERROR GOTO 300 

INPUT C,D 

PRINT C/D 

GOTO 628 

PRINT "A non-fatal error has occurred" 
GOTO 12@ 


In this example, any error which occurs before line 
168 has been executed for the first time will be 
dealt with by the standard system error handling 


procedure. 
line 190 


Any trappable error which occurs after 
has been executed will cause program 


execution to continue with statement line 300. 
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instruction: ON ESCape 
format: [Ln] ON ESC STOP 
{Ln] ON ESC GOTO nl 


[Ln] ON ESC GOSUB nl 


where: 


Ln is an optional line number. 

nl is the line number of the 
statement to which control is 
transferred. 


The ON ESC instruction causes program control to be 
transferred as specified (STOP, GOTO, or GOSUB) 
when the ESCape key is depressed during program 


execution. 
Notes: 
Le If ON ESC is written at the beginning of a 


program, the instruction specified with ON ESC 
will be executed each time the ESCape key is 
depressed. If placed elsewhere in the 
program, the statement will be executed only 
when the ESCape key is depressed following the 
execution of the ON ESC statement. 


ON ESC is reset by RUN and SCRatch 
instructions. 
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Example: 
>>LIST 


19 INPUT A,B,C 

15 IF A = -l THEN 60 
20 LET D=A+B+C 

38 ON ESC GOTO 16 


46 PRINT D 
5@ GOTO 590 
68 END 
>>RUN 
? 18,15,20 
45 (escape must be pressed here to 
get out of the loop statement 
50.) 
? 76,108,5 
85 
? -1,0,9 


**kKGEQ END*** 
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instruction: 
format: 
where: 
Ln 
* 
sSvar-l 
Ssvar-2 


RENAME 


[Ln] RENAME svar-l, svar-2 


is an optional line number. 


is a string literal or string 
variable file reference to the 
existing file. 


is a string literal or string 
variable file reference to the 
new file, 


The RENAME instruction is used to give a new file 
name to a file already in the file directory. 


Example: 


RENAME "OLDFILE", "NEWFILE" 


This command will change the name of the file (on 
the current disk drive) from OLDFILE to NEWFILE. 


221 


CROMEMCO 16K EXTENDED BASIC INSTRUCTION MANUAL 


17. 


System and File Status Instructions & Functions 


instruction: SET system parameter 
format: SET aexp-l, aexp-2 


where: 


aexpl-2 are arithmetic expressions, 


variables, or constants. 


aexp-l1 is the system parameter 


number. 


aexp-2 is the value 


assigned to 


parameter. 


The SET instruction is used to change the value of 


a given system parameter. 


Notes: 


a be Refer to the SYS instruction for a list of all 


user accessible system parameters. 


26 System parameter number @ is the width of a 
page in characters and may assume any value 
between 9 and 32767. The default value for 
this parameter is 88 characters 
corresponds to a standard 8 1/2 inch page. 


A special use of the set command is: 


SET @, ~1 


which inhibits the automatic carriage RETURN- 
line feed at the end of a line when page width 
is reached. Refer to the discussion of the 


PRINT instruction as it pertains 
output. 


Using SET @,-1 to disable page width checking 
is especially useful for graphics output to 
devices such as the Cromemco 3355 printer. 


3. System parameter 1 is the tab field width and 
may assume any value between 1 and 32767. 
This corresponds to the width of the field 
which is output by a comma (,) in a PRINT 
instruction. If the tab field width is set to 
a ® or -l1, no tabbing takes place 
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commas are treated as semicolons). 
default value for this parameter 

characters. This default value may be 
changed, see the Appendix, Areas 


Interest. 


4. For disk BASIC only, a System parameter has 


been added to facilitate timed 


start the timer, the SET 5 instruction 
given, with aexp-2 equal to approximately ten 
(18) times the number of seconds of delay 
desired. Halve aexp-2 if using a 2MHz clock. 


For example: 


SET 5,59 


will allow about 5 seconds for a complete user 


response. 


When the next INPUT instruction 
encountered, BASIC will issue an ERROR 219 -- 
INPUT TIMEOUT if the user does not respond 
with a complete input within the allotted 


time. 


Once set, the time used to respond to all 


subsequent INPUT instructions 


together until it excedes the specified value, 
and then an error message is generated. 


therefore necessary to give 


instruction prior to each timed INPUT. 


timed INPUT is no longer desired, 
de-activated by coding: 


SET 5,8 


it may be 


The ON ERROR statement can be used to trap the 
timeout error. The programmer may find out 
how much time was used by coding SyYS(5) 


find the time remaining. 
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function: SYStem 
format: SYS (aexp) 
where: 
aexp is an arithmetic expression, 


variable, or constant. 


The SYS function provides system information based 
on the value of the argument aexp. 


Notes: 

1. See the SET instruction for methods of 
changing the default values of these system 
parameters. 

Argument 

Value System Parameter Returned 

g page width (number of 
characters) 

1 tab field width (number of 
characters) 

2 character last printed (i.e., 
current character) 

3 last runtime error number (for 
disk BASIC) 
last runtime error two-letter 
ASCII code (for stand-alone 
BASIC) 

4 current print column number 

5 current input timer value 
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Example: 


188 ON ERROR GOTO 708 


148 OPEN \l\ "TESTFILE.DAT" 


7008 IF SYS(3)=128 THEN CREATE" TESTFILE.DAT": 


In this example, if the file TESTFILE.DAT did not 
originally exist on the disk, the error handler at 
line 788 would CREATE the file. Lines 718, 728 
etc. could be written to test for other values of 
SYS(3), and take appropriate action(s). 
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function: INPut 
format: INP (m) 


where: 
m is an I/O port. 


The INP instruction is used to read the contents of 
INPut port (m). 


Note: 


l. The value of m must be in the range @<m<255. 


Example: 


1@ NOESC : INTEGER K 

26 IF BINAND(INP(@) ,%9@40%) 
38 K = INP(1) : 
40 K = BINAND (K,%907F%) 

68 IF K = %681B% THEN PRINT : GOTO 199 
70 PRINT CHRS (K); 

88 IF K = 13 THEN PRINT 

98 GOTO 20 
188 ESC 

119 END 


@ THEN GOTO 29 


When a character is typed at the console, this 
program will echo it back to the console CRT. A 
carriage RETURN will be echoed as a carriage RETURN 
followed by a line feed, and an ESCape will 
terminate the program. 


The NO ESCape instruction at line 19 is necessary 
to disable BASIC's continuous polling of input port 
Q. While a program is being executed, basic 
ignores most characters typed at the console. 
BASIC continually polls the UART status port @ and 
if a character is ready, reads it from port l. If 
this character is not an ESCape character, it is 
ignored by BASIC. If it is an ESCape character, 
program execution is terminated. 


Upon reading the UART status, the status bit is 
reset. It is necessary to disable BASIC's polling 
of the status port so that this user program will 
be able to determine if a character has been typed. 
If this were not done, BASIC would, by reading the 
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status port, reset the character ready bit, thereby 
preventing the user program from determining that a 
character had been typed. 


Line 68 replaces the ESCape key function by testing 
the character typed by the user. If it is an 
ESCape, program execution is terminated. 


Statement 28 is a loop which continually polls the 
UART status ready port to determine if a character 
has been typed. The Receiver Data Available flag 
is bit 6 (refer to the 4FDC manual). The contents 
of input port 9 is ANDed with 49 hex to determine 
if this bit is a one or a zero. If it is a zero, 
no data is available, and control remains on line 
20, polling the input port again. 


If the bit has been set (=1) it indicates that data 
is available, and statement 38 reads the data from 
input port 1 and assigns this data to the variable 
K. Line 48 strips the parity bit off of the input 
data (the ASCII character set requires only the 
seven bits, ® through 6) and as stated before, line 
6@ terminates program execution upon determining 
that an ESCape character (1B hex) has been input. 


The rest of the program prints the ASCII character 
whose value was input, outputs a line feed if a 
carriage RETURN was input, and transfers control to 
line 20. 


When an ESCape is detected, control is transferred 


to line 198 which re-enables the operation of the 
ESCape key and terminates program execution. 
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instruction: OUTput 
format: OUT m, b 


where: 
m is an I/O port 


b is a byte value 
The OUT instruction is used to OUTput data byte (b) 
to OUTput port (m). 
Notes: 
1. The value of m must be in the range O<m<255. 


2. The value of b must be in the range ®<b<255. 


Example: 
>>OUT 1,75 


will display the character K (ASCII 75) on the 
console terminal (OUTput port 1). 
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function: PEEK 
format: PEEK (m) 


where: 
m is a memory location. 


The PEEK instruction returns the contents of memory 
location (m). 

Note: 

1. If m is decimal, it should be.in the range: 


®@<m<32767. Hexadecimal numbers may be used to 
_access locations in the range: O<h<%FFFF%. 


Example: 
PRINT PEEK (5) 


will print the contents of memory location 5. 
@ PEEK (-2) 
is the same as: 


@ PEEK (%FFFE%) 
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instruction: POKE 
format: POKE m,b 


where: 
m _-is a memory location. 


b is a byte value. 
The POKE instruction puts the byte value (b) into 
memory location m. 
Notes: 
1. If m is decimal, it should be in the range: 
O@<m<32767. Hexadecimal numbers may be used to 


_access locations in the range: 9<h<%FFFF%. 


2. The value of b must be in the range 6<b<255. 


Example: 
POKE 19900,255 


will place the value 255 into memory location 1699. 
POKE 5,-2 
is the same as: 


POKE 5, %FFFFE% 
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function: USeR program 


format: USR (m,Pl,...,Pn) 


where: 


m is the address of the assembly 
language routine. 


Pl-n are parameters which are 
converted to 16 bit integers. 


The USR function makes it possible to call an 
assembly language subroutine from a BASIC program. 


Notes: 


Le 


The USR function always requires the user to 
specify one parameter in addition to the 
address, even if it is a dummy parameter. For 
example, USR(@,1) is correct, while USR(®@) 
will result in a syntax error. 


If m is decimal, it must be in the range: 
®<m<32767. Hexadecimal numbers may be used to 
access locations in the range: §@<h<%FFFF%. 


USR is a function and must take the form of a 
function when it is used: 


>>108 A = USR (X,Y) 


When the user routine gains control (at the 


address specified in the USR function call), 
the following conventions apply: 


a) Register A contains the number (n) of 
parameters in the function call. 


b) Register pair HL contains the return 
address to BASIC. The user routine may 
re-enter BASIC by coding the following 
assembly language instruction: 


JP (HL) 


c) The parameters were placed in order 
(i.e., Pl was PUSHed first, followed by 
P2, P3,..-, Pn) on the CPU stack and may 
be recovered via POP instructions. 
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da) If and only if n parameters (n is the 
contents of register A, as above) are 
POPped off the stack, and the stack 
pointer is not otherwise changed, BASIC 
may be re-entered via the following 
instruction: 


RET 


e) The routine may return a 16-bit value to 
be assigned to the function by placing 
the value in DE register pair before re- 
entering BASIC. 


£) Aside from the restrictions noted above, 
all registers may be used in any way by 
the user routine. 


Example: 


The following routine, when POKEd into position by 
the BASIC program starting at line 199, will allow 

( the BASIC user to perform CDOS system calls. The 

\ USR function must be used to access this routine. 
The first parameter of the USR function is the 
starting address of the assembly language routine 
(in this case, 193 Hex). The second and third 
parameters are the values which are to be loaded 
into the DE and BC register pairs before the system 
call. Upon returning from the routine, the entire 
USR function takes on the value of the A register. 
This value may be accessed by assigning the USR 
function to a variable. Notice that the C portion 
of the BC register pair always contains the CDOS 
system call number. 
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REM DATA statements 188 & 119 are the machine 
REM code equivalent of the following assembly 
REM language routine: 

REM 

REM pop de 

REM pop bc 

REM call 5 

REM ld d,@ 

REM ld e,a 

REM ret 

REM ; 

DATA %$08D1%,%90C1%,%O9BCD%,%0095%, 2OGO0% 
DATA %8016%,%0009%,%005F%,%B0C9% 

INTEGER A,I 

FOR I = %@103% TO %G810B% 

READ A 

POKE I,A 

NEXT I 

REM 

REM Following BASIC program demonstrates 
REM the CDOS system call which positions the 
REM CRT cursor. 

REM 

SET @,-1 : REM disable page width checking. 
REM clear screen and home cursor. 
A = USR(%8193%,0,142) 

FOR I = 1 TO 24 

GOSUB 4499 

NEXT I 

REM 

REM Clear and home cursor. 
A = USR(%@183%,90,142) 

FOR I=24 TO 1 STEP -l 

GOSUB 4466 

NEXT I 
GOTO 160@ 

REM 

REM 

REM subroutine to compute diagonal column 
REM given a row number, position cursor 
REM at the given location, and print the 
REM index number there. 
J = I*3 : REM compute column number 
REM Move column number into high byte 
REM and row number into low byte 
K = 256*J+I 
A = USR(%8193%,K,142) 

PRINT I; 
RETURN 

END 
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GLOSSARY 


[ ] 


Square brackets are used to indicate an optional 
quantity. The item enclosed in square brackets may 
be used, in the position indicated, at the user's 
discretion. 


Argument 


An argument is an independent variable, constant, 
or expression used with a BASIC instruction whose 
value can be specified by the user to instruct 
BASIC to perform a certain task. For example, in 
the instruction: 


PRINT A, 3, C+7 


A, 3, and C+7 are arguments to the BASIC 
instruction PRINT. 


ASCII 


This acronym stands for American Standards Code for 
Information Interchange. It is an industry 
standard used to assign numerical codes (@ through 
127) to 128 characters used as letters, numbers, 
arithmetic operators, various symbols, and control 
characters. The ASC(X) function will return the 
ASCII equivalent of any argument. A table of ASCII 
codes is provided for reference in the Appendix. 
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BASIC Word 


A BASIC word, commonly called an instruction, is an 
alphanumeric set of characters which briefly 
describes the operation to be performed by the 
computer. Some examples of BASIC words are: 


LIST 
PRINT 
ON ERR 
LEN 
STOP 
RND 


Binary Code 


Binary code is defined as a code where every code 
element is either a @™ or a _l. Computer 
instructions and data for most microcomputers 
consist of unique, 8 bit binary codes. 


Command 


A command in BASIC is an instruction to the 
computer which specifies an operation to be 
performed. In contrast to a BASIC statement (see 
the STATEMENT definition), commands are executed 
immediately. Commands are used primarily to 
manipulate or execute a program once the program 
has been entered. Commands have no line number 
preceding them. 


A powerful feature of Cromemco 16K BASIC is the 
ability to use most commands as statements. As 
such, they may be given line numbers and included 
in the body of the program for execution while the 
program is running. 
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Control Character 


A control character is a non-printing ASCII 
character which is (usually) used to transmit 
control signals between a peripheral device and the 
computer. For example, a CTRL-P entered from the 
console will cause the system printer to echo all 
information which is displayed on the console. 


Current Program 


The current program is any program with which the 
user is currently interacting. When 16K BASIC is 
entered, no program is current. Should the user 
enter text to create a new program, this program 
becomes the current program. If the user calls a 
Saved program from system memory, that program 
becomes the current program. If the user edits a 
program, it remains the current program in its 
edited form. 


Data 


The term is used in two ways. Strictly speaking, 
any information contained within memory or control 
logic is binary data. Whether this data becomes 
alphanumeric characters or control information 
depends upon the program in use. 


In the other sense, data is used to refer to 
numerical or string information. In BASIC, this 
numerical or string information is listed in a file 
or DATA statement. 


Default 


With certain BASIC instructions, an argument may be 
optionally added to control a certain function. If 
no argument is given, the instruction defaults or 
reverts to a value already programmed into the 
BASIC interpreter. For example, the default values 
of the arguments for the command: 


RENUMBER 
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are 18,18 in Cromemco BASIC. This default value 
for RENUMBER will produce automatic line 
renumbering starting with line 18 and numbering 
consecutive lines by increments of 18, (e.g., 19, 
20, 38, 40...). To change this default value, the 
BASIC word must be followed by an argument. For 
example, the command: 


RENUMBER 5,5 


will provide automatic line renumbering starting 
with line 5 and continuing by increments of 5 
(e.g., 5, 18, 15...). 


Disk Storage 


A disk is a computer memory device which is used to 
store information. Disks are typically used in 
place of main memory when large amounts of 
information must be stored. A disk is similar in 
appearance to a phonograph record. Most 
microcomputer systems currently offer disk storage 
capabilities through either large or mini floppy 
disks. The floppy and mini floppy terms refer to 
the two different sizes (8 inch and 5 inch 
respectively) of the flexible plastic disks used 
with the disk assemblies. 


Expression 


An expression is defined as any combination of 
variables, constants and operators which is 
evaluated as a single value or logical condition. 
For instance, in the statement: 


16 LET A = (B*¥C) + (A*D) 
the (B*C) + (A*D) operation, the value of which is 
assigned to variable A, is interpreted as an 
expression. In the statement: 

10 IF A = B THEN GOTO 2586 
the logical comparison A = B is called an 


expression and is evaluated to True (=1) or False 
(=@). 
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File or Data File 


A File defines a group of related information. 
This information is addressed by means of a File 
Reference and usually resides on a floppy diskette. 


File Name 


This is a one to eight character label which is 
used to refer to a File. Several Files may have 
the same File Name. These Files may be uniquely 
identified by the use of a Disk Specifier and/or a 
File Name Extension. 


Firmware 


Firmware is the middle ground between hardware and 
software. This term is generally applied to 
specific software instructions that have been 
burned in or programmed into Read Only Memory 
(ROM). 


Floating Point Mode 


Floating point mode refers to a method of computer 
calculation in which the computer keeps track of 
the decimal point in each number. In 16K BASIC, 
three formats are used to define variables: 
Integer, Long Floating Point, and Short Floating 
Point. In the Long Floating Point mode, numerical 
values are allowed up to 14 digits. In the Short 
Floating Point mode, numerical values are limited 
to 6 digits. The default value in Cromemco BASIC 
is the Long Floating Point (LFP) mode. 
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Hardware 


In comparison to firmware and software, hardware 
represents the actual metal (or hard) elements of a 
computer system. Items such as printers, 
terminals, and the computer itself are considered 
to be hardware. 


Integer 

An integer is defined as a whole numbeY, positive 
or negative. The following numbers are examples of 
integers and non-integers: 


INTEGERS NON-INTEGERS 


3 3.14159 
16 - 66666 
=e) 2/3 


Integer Mode 


Integer mode is a format used to define variables 
in which one or all variables within a given 
program are set to integer values only. 


Interactive 


An interactive device is one used to achieve direct 
person to computer communication, and vice versa. 
The teletype and CRT terminals are the best known 
examples of interactive terminals, although many 
variations are possible, 
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I/O (Input/Output) 


The I/O initials stand for Input and Output. I/O 
is the transfer of data between the computer system 
and an external device. Devices such as CRT 
(Cathode Ray Tube) terminals, TTY (teletypewriter) 
terminals, and disk drives are examples of devices 
that accept the input data from the user, another 
peripheral device, or from the computer memory, and 
that output data to the computer. 


Line Number 


All lines in BASIC begin with a line or statement 
number. For example: 


18 PRINT A, B 


includes the statement number 18. Line numbers can 
be assigned manually or through the AUTOL command 
and may be any integer from 1 through 99999. All 
BASIC lines have a unique number which is used to 
access lines which require modification or deletion 
from the program. 


Matrix 


A matrix is an array of numeric variables in a 
prescribed form. For example, the array: 


3 2 @ 
1 4 6 
=3° 4-5 


is a matrix with three rows and three columns. A 
Matrix with m rows and n columns is written: 


all al2 al3 ...aln 


a2l a22 a23 ...a2n 


aml am2 am3 ...amn 
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The individual entries in the matrix are called 
elements or cells. For example the quantity aij in 
the above matrix is the element in row i and column 
J. Subscripts used to indicate elements always 
denote the row first and the column second. 
Cromemco BASIC permits the user to define one, two, 
or three dimensional matrices. A two (i.e., Mij) 
or three (i.e., Mijk) dimensional matrix is 
commonly called a table. A one dimensional matrix, 
a matrix with n columns but only one row, is 
commonly called a list. For example, the matrix: 


3, -l, 5, -8 


is a list (or a matrix) with one row and four 
columns. 


Memory 


The computer memory is used to store information, 
including programs and data, for future use. 
Microcomputers typically use semiconductor 
memories, of which the two most common types are 
random-access memory (RAM) and read-only memory 
(ROM). From a hardware perspective, memory 
consists of an array of bistable, individually 
addressable elements each of which represents a 
single binary digit. Information can be stored 
either in main memory, which commonly consists of 
RAM or ROM, or external storage devices, which 
include disks, magnetic tape, and magnetic drums, 


Peripheral Device 


Peripheral devices are units which are used in 
conjunction with a computer but which are external 
to the computer. Peripherals refer to devices such 
as printers, plotters, terminals, disk storage 
devices, etc., which can be connected to the 
computer, The computer is assumed to be the 
central unit and peripherals are merely support 
devices. 
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Prog ram 


A computer program is a set of instructions 
arranged into statement lines. The instructions 
are used to instruct the computer to perform 
specified operations in a certain order. Programs 
are designed and written to solve a wide range of 


“problems and are used in applications as varied as 


process control, data reduction, telephone systems, 
mathematical analysis, games, and stock market 
transactions. 


PROM 


This acronym stands for Programmable Read Only 
Memory. PROMS consist of an array of memory cells 
that can be fixed in certain patterns by the 
application of higher than normal voltages. These 
memories are said to be non-volatile; that is, when 
power is withdrawn the programmed pattern remains. 


Recently, EPROMs, or Erasable PROMs, have appeared 
and have found industry wide usage. EPROMS may be 
erased by exposure to ultraviolet light, and then 
re-programmed. The Cromemco Bytesaver II is 
designed to program EPROMs. 


Protocol 


Protocol is a set of conventions on the format and 
content of messages to be exchanged between two 
logical devices. Most often, differences in timing 
account for failure of devices to communicate. For 
example, a certain signal might, of necessity, be 
present to enable an I/0 request to a 
microprocessor's protocol. To match a computer to 
a terminal, one must know the mutual handshake 
protocol. 
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RAM 


RAM stands for Random Access Memory, or read-write 
memory. In contrast to PROMS, read-write memory 
can be changed as well as being read. Some RAMS 
(known as dynamic) retain data for only a fraction 
of a second and must be refreshed constantly to 
retain data. All RAM is volatile and must have 
power applied to retain data patterns. 


ROM 


A ROM is a Read Only Memory device that is used for 
storing fixed information. This information is 
burned in, or programmed, at specific locations 
when the ROM is manufactured. A ROM cannot be 
written into during operation. Any ROM that can 
later be altered is a Programmable Read Only Memory 
(see PROM). ROM family memories, once burned, 
retain their. data regardless of power 
contingencies, 


Sector 


A Sector is a subdivision of a track. A track ona 
large disk is divided into 26 sectors while a small 
disk track is divided into 18 sectors. Sectors are 
numbered starting from number one and each sector 
holds one record or 128 (8@H) bytes. 


Software 


Software is a term used to refer to the programs, 
languages and procedures used in a computer. For 
example, the 16K BASIC interpreter as well as any 
BASIC programs are identified as software. 
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Statement or Statement Line 


A statement in BASIC is an instruction or series of 
instructions to the computer. A statement is 
defined as one line in a BASIC program which is 
preceded by a line number. For example: 


188 A = B*C 


is defined as a statement. Typically, a statement 
can contain a maximum of 132 characters. 


A powerful feature of Cromemco 16K BASIC is the 
ability to use most statements as commands. As 
such, they may be used without line numbers and 
executed immediately. This is very useful for 
debugging programs. 


Cromemco 16K BASIC also allows more than one 


instruction on a single statement line as long as 
adjacent instructions are separated by a colon (:). 


String Literal 


A string literal (or string) is a sequence of 
alphanumeric characters, spaces, and special 
characters. In 16K BASIC, string literals must be 
enclosed within quotation marks. Examples of valid 
String literals include: 

"CROMEMCO 16K BASIC" 

"12345" 

"THIS PROGRAM PRINTS SQUARE ROOTS" 
The statement: 

186 PRINT "CROMEMCO 16K BASIC" 
will output the string 


CROMEMCO 16K BASIC 
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String Variable 


A string variable is a variable which may assume 
the value of a string literal. 


Track 


A Track is a physically defined circular path which 
is concentric with the hole in the center of a 
disk. It is defined by its distance from the 
center of the disk. With the read/write head of 
the disk drive located on a given track, data may 
be read from or written to that track. A large 
disk has 77 tracks, while a small disk has 46. 


User Area 


The User Area is the BASIC workspace in which a 
program can be written, edited, and run. The LIST 
command displays the contents of the User Area. 


Variable 


A variable is a quantity that can assume any one of 
a given set of values. In 16K BASIC, variables are 
defined by a single letter (A through Z) or a 
Single letter followed by one digit (@ through 9). 
Examples of legal variable names include: 


A. 
Al 
Cc 
CO 


Variables represent numeric values. In the 
statement: 


26 A= 8 + 2 
A is the variable and 8+2 or 18 is the value 
assigned to A. A new value can be assigned to A at 


a subsequent point in the program. 
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BASIC ERROR MESSAGES 


20.1 Fatal Errors 
Stand 
Alone 
BASIC Disk BASIC 
Error Error 
Code Number Message 
SY 1 Syntax 
US 2 Using Syntax 
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Meaning 


This error message covers 
a number of errors which 
can occur when the user is 
entering (typing in) a 
program. For example: 
Unmatched parentheses: 
A= (B¥* (C) 
Misspelled words: 
PIRNT A 
Wrong data type: AS$=3*A 
Bad punctuation: 
PRINT A(7;2) 
Because there is only one 
message for all these 
errors, a dollar sign is 
printed under the line in 
error at a position 
approximately indicating 
the position of the error. 


The format string for a 
PRINT USING instruction is 
in error. For example: 
PRINT USING "#.##!!8", 
3.2E9 
(only 3 exclamation 
marks; 4 required) 
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#A 


IL 


PS 


HG 


# ( 


6 


8 


Number of 
Arguments 


No Disk in 


System 


Illegal 
Statement 


Print Item Size 


Too Many GOSUBS 


EXP Too Complex 
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‘Subroutines 


A function call requires a 
different number of 
arguments than the number 
passed to it. For 
example: 

DEF FNA(X,Y)=X+Y 

PRINT FNA (J) 


In a stand alone system, a 
request for a disk-only 
function was made. 
e.g., OPEN\1\"LP" 

(presumably the 
meant "S$LP") 


user 


(1) This can be caused by 
entering a line with a 
syntax error and then 
RUNning the program 
without correcting the 
line. 


(2) In certain systems, 
certain statements can be 
declared invalid. For 
example, POKE might be 
illegal in a time-sharing 
system. 


An attempt was made to 


print a single item which 
required more characters 


than the current page 
width. e.g., 

SET 8,10 

PRINT "LOTS OF 
CHARACTERS" 


are nested 
within subroutines to a 
depth which exceeds that 
allowed by BASIC. 


Too many levels of 
expressions, too many 
parentheses or function 
references. 


ee 
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RT 


NX 


FU 


DV 


L# 


SS 


#S 


EL 


10 


12 


13 


14 


5 


16 


1@1 


Return, No GOSUB 


Active 


NEXT Without FOR 


Function not 
Defined 


DIMension 
Statement Error 


GOTO /GOSUB 
Undefined Line 
Number 


Subscript Values 


Number of 
Subscripts 


End of Statement/ 
End of Line 
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The program has no place 
to return. This can be 
caused by deleting a line 
with a GOSUB statement and 
then encountering its 
RETURN statement. 


FOR and NEXT statements 
must be paired. This 
error may occur if a line 
containing a FOR statement 
is deleted. 


A user function is 

referenced by the program 
but has not been defined. 
If the line containing the 


DEF FNs(X) is deleted, the 
function is no longer 
defined. 


Invalid argument(s) in the 
DIMension statement. For 
example: a negative 
number, DIM A (-2@); too 
many subscripts, DIM B 
(5,5,5,5); too large an 
integer, > 16382. 


A GOTO or GOSUB statement 
refers to a line that does 
not exist. 


The values assumed by 
subscripts must be less 
than those in the 
DIMension statement. 


The number of subscripts 
associated with a variable 
must match the number of 
subscripts in the 
DIMension statement. 


This is an internal BASIC 
error - please document 
and mail to Cromemco, 
Customer Service Dept. 
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. 
SZ 12 Array or String There is not enough memory 
Space Overflow to store the array or 
string. 
( 
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20.2 User Trappable (Non-Fatal) Errors 


Stand 
Alone 
BASIC 
Error 
Code 


NF 


FN 


CM 


FO 


NO 


F¢ 


OP 


fo . 


Disk BASIC 
Error 
Number Message 


128 File not Fnd 

129 Filename 

13@ Invalid Cmd for 
Device 


131 File Already Open 


132 File Not Open 

133 File Number 

134 Cannot Open 
File 
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Meaning 


File not found on disk 
(file not in directory) or 
the device name is not in 
the device directory list. 


A disk file name was used 
in a Stand Alone System or 
an illegal file name was 
passed. 


A command was given to a 
device which that device 
was incapable of 
performing. For example: 
a read command given to a 
line printer. ~ 


An OPEN command was given 
to a file which was 
already open. 


A read or write was 
attempted using a file 
which had not been OPENed. 


The file number requested 
was outside the allowable 
range. The file number 
must be greater than 9 and 
less than or equal to the 
maximum channel number. 


A message from the device 
driver (or CDOS). (A non- 
zero value returned on 
OPEN.) 
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FS 


NC 


HX 


BO 


135 


136 


13:7 


138 


139 


149 


141 


288 
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No File Space 


File Mode Error 
File Already 


Exists 


File Read: No 
Data 


File Write 


File Position 


No Channel 
Available 


Invalid Hex 
Number 


Integer Overflow 


252 


All files in use, The 
system must have one 
unused channel to do a 
LIST, ENTER, SAVE, ofr 
LOAD, 


CDOS only - no more space 
on disk (or there are 64 
directory entries). 


A READ was attempted from 
a write only file or vice 
versa. 


An attempt was made to 
CREATE a file that already 
exists. 


End of file read, or, for 
random access only, an 
attempt to read a portion 
of the file which had not 
been written. 


A message from CDOS - an 
attempt was made to write 
to a write protected disk 
or an error occurred while 
writing to the disk. 


An attempt was made to 
read a negative file 
record or record larger 
than 249K bytes. 


All I/O channels in use. 
(The maximum number of 
channels is system 
dependent.) 


Hexadecimal numbers 


must contain only the 
characters @ through 9 and 
A through F, 


A value greater than 32767 


was assigned to an integer 
variable. 
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FA 


IN 


IN 


DM 


ND 


DT 


E# 


LL 


282 


203 


204 


285 


286 


207 


208 


209 


218 


Function Arg 
Value 


Invalid Input 


Input 


Not Dimensioned 


No Data Statement 


Data Type 
Mismatch 


Number Size 


Line Length 


Input Timeout 
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A function was called 
using an illegal argument. 
For example: SOR (-2). 


An attempt was made to 
INPUT non-numeric data 
into a numeric variable. 


An attempt was made to 
INPUT more items that were 
called for in the INPUT 
instruction. 


A reference was made to a 


subscripted variable which 
had not been dimensioned. 


An attempt was made to 
READ past the end of the 
DATA supplied. Either 
there was a READ with no 
DATA statement or there 
were not as many items in 
the DATA statement as in 
the READ list. 


An attempt was made to 
READ a numeric value to a 
string variable or vice 
versa. For example: 

18 DATA 5 

20 READ A$ 


An attempt was made to 
assign a value outside of 
the range 9.99E+62 to 
9.99E-65 to a variable. 


A line longer that 132 
characters was entered. 


See the SET instruction 
for information about this 
error. 
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OV 250 Overflow/ A floating point operation 
Underflow produced a number outside 
of the range 9.99E+62 to 
9.99E-65. For example: 
A=1/8. Or, Integer 
arithmetic caused results 
outside of the range - 
32768 to 32767. 


Notes: 
The character * in the Stand Alone BASIC Error Code 


column indicates that the error message is not 
applicable. 
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ASCII CHARACTER CODES 


DEC. HEX CHAR. DEC. HEX CHAR. DEC. HEX 
Ns) OO NUL (CTRL-@) 943 2B. C++ 986 56 
G01 O1 SOH (CTRL-A) G44 ac . 087 57 
082 G2 STX (CTRL-B) G45 2D «(= 088 58 
083 03 ETX (CTRL-C) G46 2E 3 989 59 
OB4 g4 EOT (CTRL-D) O47 2F / 90 SA 
005 95 ENQ (CTRL-E) 048 30 g G91 5B 
B06 @6 ACK (CTRL-F) - gag 31 1 992 5c 
007 07 BEL (CTRL-G) 050 32 2 993 5D 
088 08 BS 051 33 3 B94 5E 
G29 g9 HT G52 34 4 995 5F 
019 OA LF 953 35 5 996 69 
G11 0B VT 954 36 6 997 61 
912 GC FF 055 37 7 098 62 
G13 0D CR 056 38 8 999 63 
14 QE SO (CTRL-N) 057 39 9 190 64 
015 OF SI (CTRL-O) 958 3A : 161 65 
916 10 DLE (CTRL-P) 059 3B ; 192 »=666 
017 1l DCl (CTRL-Q) B60 3c < 183 67 
918 12 DC2 (CTRL-R) G61 3D = 194 68 
019 13 DC3 (CTRL-S) 062 3E > 105 69 
020 14 DCc4 (CTRL-T) 063 3F =? 106 6A 
G21 15 NAK (CTRL-U) G64 AB @ 107 6B 
922 16 SYN (CTRL-V) G65 41 A 168 6C 
G23 17 ETB (CTRL-W) 066 42 B 189 6D 
G24 18 CAN (CTRL-X) 067 43 Cc 116 6E 
925 19 EM (CTRL-Y) 068 44 D 111 6F 
026 1A SUB (CTRL-Z) 969 45 E 112 «#79 
G27 1B ESC (CTRL-[) 070 46 F 113 71 
G28 1C FS (CTRL-\) 071 47 G 114 72 
29 1D GS = (CTRL-]) 072 48 H 115 73 
30 1E RS (CTRL-*) 073 49 I 116 74 
031 1F US  (CTRL-_) 074 4Q J Hea be 75 
032 20 (SPACE) 975 4B K 118 76 
833 21 ! 076 4c L 119 a7 
034 22 is 077 4D M 129 78 
035 23 # 078 4E N 121 79 
036 24 $ 079 4F Oo 122 7A 
037 25 g G88 50 P 123 7B 
938 26 & 081 51 Q- 124. “=7eE 
039 27 ' 82 52 R 125 7D 
049 28 ( 983 53 Ss 126 7E 
G41 29 ) 084 54 fT 127 7F 
942 2A * 985 55 U 


LF=Line Feed FF=Form Feed CR=Carriage Return DEL=Rubout - 
ESC=ESCAPE 565 


CHAR. 


“A dwt AONKXS SG 


wee TO hoOand ow 


tw—onNKK ESE THN OTOS Se 


DEL 
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OVERLAY STRUCTURE 


These programs demonstrate the ability of 
Cromemco's 16K Extended BASIC to overlay or have 
one program overlay (part of) itself with another. 
This feature is very useful for running large 
programs on smaller systems. 


Space is most efficiently used if the same line 
numbers are used in all programs which are to be 
overlayed. In the following example, program ONE 
is run and calls in program TWO. 


PROGRAM "ONE" 


1 GOTO 10 

5 ENTER "TWO" 
1% DATA 1,2,3,4,5 
20 READ A,B,C,D,£E 
38 GOTO 5 


PROGRAM "TWO" 


19 X=A+B+C+D 
28 Y=E+F+G+H+I 
38 Z=X+Y 

48 PRINT X,Y,Z 
58 END 


>>ENTER "ONE" 


> >RUN 
1@ 35 45 
**KGQ END*** 


When program ONE is entered and RUN, line 1 passes 

control to line 18. Then at line 29, the DATA from 

line 1@ is READ into variables A through I. 

Control is then passed to line 5 which calls in the 

second program. Program TWO overlays lines 18, 29, 

and 3@. The line which follows line 5 is line 19. 

Now, however, line 1@ is a line from program TWO. 
The rest of program TWO is executed with the ¢ 
results being printed out by line 49. 
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AUTOMATIC STARTUP AND 


PROGRAM EXECUTION FROM CDOS 


A very powerful feature of the Cromemco Disk 
Operating System (CDOS) is the ability to enter 
directly into an application program when powering 
up the computer. This is especially useful for the 
inexperienced user as there is no need to deal with 
any of the commands which are used to load and 
execute a program. 


If, for example, the user wants to execute the 
BASIC program 'START.SAV' automatically when CDOS 
is entered, the following steps should be followed: 


1. Make sure. that there is a copy of the 
batch command file '@.COM' on DISK A. 


2. Save the BASIC program you want RUN in a 
file (in this example we are using 
"START.SAV'). The program must be SAVEd 
(not LISTed) in order for this to work! 
Our program for this example is: 


19® REM THIS IS MY 
185 REM APPLICATION PROGRAM! 


118 A=5 
128 B=19 
130 PRINT "THE ANSWER IS: "; A*B 
148 END 
3. Using the editor, create a file named 


"STARTUP.CMD' on a disk A. Note that 
this must be named 'STARTUP.CMD' as this 
is the file name that CDOS looks for. In 
this example, the command file should 
contain the line: 


BASIC START.SAV 


Then, when CDOS is entered, the batch 
command will call BASIC which will RUN 
the saved program 'START.SAV. 
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4. When the computer is turned on and CDOS 
is entered (you have to hit the carriage 
return several times), our example will 
output the following: 

CROMEMCO CDOS VERSION XX.XX 


A.@ STARTUP 
BATCH VERSION XX.XX 


A.BASIC START.SAV 
CDOS 16K BASIC, VERSION X.XX 
THE ANSWER IS: 598 
**¥*¥14Q END*¥** 
oye If the first program line is a NOESC or 


ONESC, the user can be prevented from 
ever leaving the running BASIC program. 
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MIXED MODE ARITHMETIC 


There are three types of numbers in BASIC, Integer 
Short Floating Point (SHORT), and Long Floating 
Point (LONG), (hexadecimal constants are treated as 
integers). Any arithmetic computation, assignment, 
INPUT, or READ can be performed using any one or 
more of these types of numbers. 


An assignment, READ, or INPUT will automatically 
convert the number to the type of the receiving 
variable. This is the variable which is on the 
left of the equal sign in an assignment 
instruction, and in the data list in the READ and 
INPUT instructions. 


In general, numbers are converted to other types 
freely as needed. For example: 


SIN (38) works, even though the SIN function 
must have a LONG argument. The 
Integer 38 is converted to a Long 
Floating Point number. 


SYS (2.6) works, even though the SYS function 
must have an Integer argument. The 
Long (or Short) Floating Point 
number 2.6 is converted to an 
integer (rounding to 3.98). 


Most problems will occur with mixed mode arithmetic 
involving Integer numbers. Remember that all 
constants without a decimal point and with a value 
less than 18,088 are stored as Integers. 


Examples: 


>>SHORT S 

>>INTEGER I 
>>8 6.°s; f 
>>5 


This example will assign a value of @ to S. This 
is because I/3 is evaluated first (rules of 
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precedence, arithmetic operators). Because both I 
and 3 are Integers, I/3 is evaluated as a @ using 
Integer arithmetic. Zero times anything, no matter 
what type, is still @. 


>>SHORT S 
>>INTEGER 
>>S = 6 

S) 


This example will assign a value of 2 to S. This 
time S*I is evaluated first, and because this is 
mixed mode arithmetic, the shorter form is 
converted to the longer form (I's value is 
converted to SHORT). Then S*I is equivalent to 
6.0*1.89 or 6.0. We are left with 6.0/3, mixed mode 
again. 


The Integer 3 (the shorter type) is converted to 
Short Floating Point (the longer type) and the 
division is performed. S is assigned a value of 
6.0/3.8 or 2.0. 


>>INTEGER §S 

>>SHORT S 

>>LONG L 

>>I =1l:S=3: Le=1 


If at this point we give the command: 
>>L = L/S 


L will be assigned a value of 9.33333333333333 
because L/S is evaluated as Long Floating Point 
(the longer type). 


If instead we have given the command: 
>>L = I/S 


L would have been assigned the value of 
G.33333380000008 because I/S is evaluated as Short 
Floating Point (the longer type, but still only 6 
digits of accuracy) and then assigned to a Long 
Floating Point variable (L) with 14 digits of 
accuracy. 


Conversion of both types of floating point numbers 
to Integer numbers and vice versa does take time. 
Also Arithmetic, indexing, and subscripting with 
floating point numbers is much more time consuming 
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than it is using Integers. 


Time can be saved by using Integer numbers wherever 
possible. Where it is not possible, care in 
precedence ordering can result in significant time 
savings. If L is type LONG and I is type INTEGER, 
the first of the following commands will execute 
faster than the second one. 


>>L 
>>L 


T*IT*I*I eh 
L*¥I*I *I*I 


This is because, until the last multiplication, the 
first example is using Integer arithmetic. The 
second example uses Long Floating Point arithmetic 
from the start, because the LONG variable is at the 
left and this is where evaluation of this 
expression begins. 
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PATCH SPACE 


Disk Version: The only space available in the disk 
version of 16K BASIC for user patches is at 
hexadecimal locations 425 to 4FF and 193 to I1FF. 
The user can put. and SAVE (using CDOS) a patched 
ROUTINE at these locations. 
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Notes: 


l. XX stands for: 


CROMEMCO 16K EXTENDED BASIC 


AREAS OF USER INTEREST 


64 if you are using CDOS 


8@ if you are using SAB 


2. CDOS is the Cromemco Disk Operating System 
SAB is the BASIC Stand Alone Operating System 


36 Many of these values may be changed by the SET 


instruction. If necessary, and 
they may be changed with the POKE instruction. 
Refer to the Appendix section on Changing the 
number of I/O Channels for an example. 


Hex 


No. 


of 


Address Bytes Version Description 


XXBB 


XX93 


3 


3 


CDOS A jump (JP) to the routine 
uses the 
address of the bottom of 
CDOS to establish the top 


where BASIC 


with care, 


of user program space. 


SAB A jump (JP) to the routine 
which uses repeated RETURN 
initialize 


characters to 


the baud rate. After baud 
rate is established, BASIC 
automatically "sizes" RAM 


memory (starting 
location @) to establish 


top of user program space. 


Both A jump (JP) to 


a point in 


BASIC equivalent to 


request to enter 


program line. 


destroy program currently 


in memory. 
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XX@G6 3 Both 
XXB9 3 Both 
XX@C 3 CDOS 
SAB 
Both 
XXOF 3 CDOS 
SAB 


A jump (JP) to a point in 
BASIC equivalent to 
issuing a SCRatch command. 
Does not re-size memory. 


A jump (JP) to a point in 
BASIC equivalent to the 
point reached via the jump 
at XX@@ except that memory 
sizing and baud rate 
initialization do not take 
place. On entry here, HL 
register pair should 


used as top of user 
program space, and the A 


register should contain 
the number of file 


An illegal instruction (FF 
Hex, actually a RST 38H), 
which CDOS traps and uses 
to display an error 
message. 


A jump (JP) to the "IL" 
(Illegal command) error 
message. 


If a CROMEMCO monitor 
resides in PROM at E#9O 
hex, these 3 bytes should 
be changed to a jump (JP) 
to the breakpoint handler 
in the monitor. In case 
of failure in BASIC, the 
breakpoint information 
thus displayed might prove 
extremely valuable. 


A jump (JPY to the CDOS 
warm-start at address 
GOOG. Used by the BYE 
command to return to CDOS. 


A jump (JP) to location 
E@08 Hex, the warmstart 
point in the CROMEMCO 
monitor. Used by the BYE 
command to exit to the 
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XX12 


XX14 


XX14 


XX16 


XX17 


a XX18 


Both 


CDOS 


SAB 


Both 


Both 


Both 


monitor. CAUTION: BYE 
should not be used in 
systems without a monitor. 


The address pointer used 
by BASIC to locate the 
beginning of the Device 
Driver LIST. The user may 
use this address to -find 
the DDLIST or may change 
it to force BASIC to use 
an alternate DDLIST. 


The address pointer to the 
beginning of the ERROR 
MESSAGE. The format of 
error messages in memory 
is as follows: 


3 Bytes -- Call to error 
printer 
1 Byte -- Error number 


n Bytes -- ASCII message, 
terminated by a 
8 byte. 


The address pointer to the 
beginning of the ERROR 
MESSAGES. The format of 
error messages in memory 
is as follows: 


3 Bytes -- Call to error 
printer 

2 Bytes -- The error code, 
second byte 
first. 


The maximum number of 
channels which can be 
allocated at one time. 
Each I/O channel occupies 
192 bytes of memory. 


The default number of 
characters per line. 
BASIC is shipped with this 
byte = 8@ decimal. 


The number of characters 
per TAB position. BASIC 
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XX19 


XX1A 


XX1B 


XX1C 


XX1D 


Both 


Both 


Both 


Both 


Both 


is shipped with this byte 
= 28 decimal. 


The character which is 
used as a rubout, default 
value is 5FH (underline). 


Default type of numeric 
variables and constants 
where l=Integer, 2=Short 
Floating Point, and 4=Long 
Floating Point. The 
default value is 4, 


Line delete character. 
The default value is 
control-U. 


The carriage return delay 
(number of nul characters 
sent after a carriage 
return). The default 
value is @. 


Backspace echo - must 
terminate with a @. The 
default value is back- 
space, space, backspace, 
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DETERMINING THE ADDRESS OF A STRING 


The address of any string may be determined as 
follows: 


198 L=LEN(X$) : A=SYS (2) 
or 
200 A=SYS (2+0*LEN (X$) ) 


When the length of a string is taken, its address 
is automatically placed in SyYS(2). CAUTION: 
SYS(2) is also used to store the most recent I/0 
character (to console or file). So don't mix 
usages of the address capability with I/0 
statements, including TRACE. It is probably best 
to put the two statements on a single line or 
statement, as shown. 


NOTE: In the unlikely event that a program is 
using SYS(2) in its old sense of “last character", 
only the least significant byte of SYS(2) receives 
the character. The most significant byte may be 
reset via SET 2,8, or masked off via BINAND 
(SYS (2) ,255). 


Another Caution: Adding (or ENTERing) new 
statements or'variables can cause string addresses 
to change. Use SYS(2) just before you need the 
address (typically for a USR call). You could even 
do the following: 

A=USR ($439%,LEN (AS) ,SYS (2) ) 
to pass the address and length of a string. 


Also, A=LEN(A$(B)) : S=SYS(2) produces the address 
of the Bth character of the string AS. 
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ADDING DEVICE DRIVERS TO BASIC 


C—O 


Declaring Device Drivers 


All I/O devices to be accessed from BASIC must be 
declared in the device driver list. This list 
Starts at location DDLIST and each entry is 8 bytes 
long. These entries are of the following form: 


device name (ASCITI) 
byte @ first letter second letter byte 
base address of device letter 
2 LSB MSB 
may be used for device dependent 
4 information needed by driver 
: 


The device name (bytes @ and 1) is used for finding 
the correct device to OPEN. For example, 
OPEN\2\"SLP" would instruct BASIC to search the 
device driver list for device name "LP" (the $ 
indicates a device instead of a disk file). The 
driver's starting address occupies the next two 
bytes. Actual addresses and equated value may vary 
depending on both revisions and which version of 
BASIC is being used. The following two bytes are 
reserved for use by the driver and their 
function(s) are defined by the person programming 
the driver. This device driver list can be placed 
in PROM. These two bytes are thus not intended as 
temporary storage areas. 


A typical use of one of these bytes might be to 
hold the actual device address to be accessed. 
This would, for example, allow a general purpose 
TU-ART driver to drive several ports each dedicated 
to a different device. 
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The last two bytes of each table entry are reserved 
for future use. The table itself is terminated by 
the first nul driver name (Hex @@ in the first 
character of the name). 


Rules for Device Drivers 


The actual device drivers must follow certain 
prescribed rules. In particular, the first 16 byte 
locations in the driver must contain address 
pointers to the various routines (some of which are 
required) in a BASIC driver. The 16 bytes define 
the addresses of 8 different routines as shown in 
the following table: 


(LSB) (MSB) 

Byte 9Q Byte 1 
2 3 

4 5 

6 7 

8 9 

18 21 

12 13 

14 15 


If any of the routines noted above are not defined 
for a given driver, the corresponding address field 
should be set to @®@@GHH. However, if a routine is 
(or must be, see below) defined but does not do 
anything, the corresponding address must contain 
the address of an XOR A/RET instruction sequence. 


A description of what must be accomplished by the 
various routines follows. Parameters which may (or 
must) be passed between BASIC and the driver 
routines are always passed in registers, or in the 
Extended File Control Block (EFCB). 


Most of the information needed by the driver 
subroutines may be obtained from (or saved in) the 
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Extended File Control Block (EFCB). 


Register usage is covered in the description of 
each command routine below: 


OPEN: 


CLOSE: 


PUTC : 
GETC: 


This routine should perform any 
processing required to initialize the 
device. For example, a line printer 
driver would typically issue a form 
feed on open. 

On Entry: (A') = no. of parameters 
(®,1,0r 2) 

(IY) = ADDR of EFCB 

®, 1, or 2 parameters are 
passed to the routine in 
locations EFCBP1 and 
EFCBP2 of the EFCB. 


On Return: A not equal to @ says 
can't open. This is a 
user-trappable run time 
error. 


This routine should perform processing 
necessary to “shut down" the device. 
For example, a paper tape punch driver 
might punch out a trailer piece of 
tape. 


On Entry: (IY) = ADDR of EFCB 


On Return: A not equal to @ says 
can't close. This is a 
user-trappable run time 
error. 


These routines perform byte-by-byte 
transfers to and from the device. 
Devices requiring a buffer may use the 
buffer (and/or extended buffer) in the 
EFCB. 


(IY) = ADDR of EFCB 
(A) is character to be 
written (PUTC only) 


On Entry: 


On Return: (A) used for character 
read (GETC only) 
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SSTAT: (SPOS) 
This routine is used to set the status 
of the device. For example, a DAZZLER 
driver might use this to set the X/Y 
screen position. 


On Entry: (A') = no. of parameters 
(9,l,or 2) 
(IY) = ADDR of EFCB 
®, 1, or 2 parameters are 
passed to the routine in 
locations EFCBP3 and 
EFCBP4 of the EFCB. 


On Return: A not equal to @ says 
invalid status request. 
This is a user-trappable 
run time error. 
GSTAT: (GPOS) 


On Entry: (IY) = ADDR of EFCB 


(A') = which status is 
requested 
\, 
On Exit: (HL) contains appropriate 


status value. A not equal 
to @ sets a user-trappable 
runtime error. 


NOTE: Registers IX and IY cannot be changed by any 
of these routines. 


The EFCB referred to has the following format: 


EFFCB 
EFCBDA 


DS 1 7@=not in use, l=in use 
DS 2 ;Device Driver Address, 

;bytes 2&3 From DDLIST 
EFCBDD : DS 2 ;Device Dependent info, 
bytes 4&5 from DDLIST 


EFCBP1l : DS 2 7\These are the two optional 
;parameters 

EFCBP2 : DS 2 ;/P1 & P2 as used in the 
;"OPEN" statement 

EFCBP3 : DS 2 7\These are the 2 optional 


;parameters Pl & P2 
EFCBP4 : DS 2 ;/used in PUT, GET, PRINT, 
z;and INPUT statements 
BUFFER DS 179 ;Available to user for 
( saccumulating individually 
; ;passed bytes into a buffer 
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When the proper DDLIST entries have been made as 
shown, operation of the driver is as follows: 


OPEN\1,A,B,\"SDR" 


PRINT\1,X,Y\"HELLO" 


INPUT\1\AS 


A = IOSTAT(1,n) 
where @<n<255 


CLOSE\1\ 


Calls the OPEN routine of driver 
w DR" Z 

EFCBP1 = A, EFCBP2 = B 

A' register = 2, IY= ADDR of EFCB 

If OPEN is not needed, it must 
consist of an XOR A, RET sequence. 


The Set Status routine of "DR" is 
called with EFCBP3 = X, EFCBP4 = Y 
(X and Y are converted to integers 
first). 

A' = 2, IY = ADDR of EFCB 

An XOR A, RET sequence should be 
executed at the completion of Set 
Status. 

Next, the PUTC routine of "DR" is 
called 7 times, once for each 
character to be transmitted plus 
once with a Carriage Return and once 
with a line feed. 

A = character, IY = ADDR of EFCB 


Set Status routine of "DR" is called 
with EFCBP3 = %FFFF%, 

EFCBP4 = %FFFF3, 

A' = 9, IY = ADDR of EFCB 

An XOR A, RET sequence should be 
executed. 

Next, the GETC routine of "DR" is 
called repeatedly, expecting one 
byte to be returned in A. This 
continues until a terminator 
(CR,LF,FF,NULL) is transmitted, or 
until more than 132 characters have 
been transmitted. 


The Get Status routine of "DR" is 
called. A' contains n, the 
requested status parameter and IY = 
ADDR of EFCB. The status value to 
be returned should be placed in HL. 
An XOR A, RET sequence should be 
executed last. 


The CLOSE routine of "DR" is called. 
If CLOSE is not needed, an XOR A, 
RET sequence must be provided. 
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Note that if PUT and GET were used in the above 
calls instead of PRINT and INPUT, binary bytes 
would be transmitted according to variable type and 
no carriage control information would be sent. 
I.E., PUT\1\V would transmit two bytes if V is an 
integer, four bytes if V is short floating point, 
and eight bytes if Vv is long floating point. No 
carriage return or line feed is sent. Also note 
that PRINT\1\"A","B" will not transmit the comma 
but will send the proper number of spaces to place 
"B" in the next tab field. 
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ADDR 


4B6C 
4B6D 
4B6E 
4B70 
4B71 
4B72 
4B73 
4B74 
4B75 
4B76 
4B78 


4B79 
4B7A 


4B7C 
4B7D 
4B7E 
4B86 
4B82 
4B84 
4B85 
4B86 
4B88 
4B8A 
4B8C 
4B8D 
4B8E 
4B96 
4B92 
4B94 


CODE 


D 


~e we Me tO Ne 


i 
DDL 


DDC 


' 
a 8 


DDE 


=e “Se NO TO 


DLIST (DEVICE DRIVER LIST) 


NOTE: THE ADDRESSES SHOWN IN THIS LISTING 
MAY VARY FROM VERSION TO VERSION, but the 
format is identical. The actual starting 
address may be found in locations 9412, 
0413 for CDOS BASIC and 8012, 8@13 for 


Stand Alone BASIC 
IST: , 
NSL DB ‘sy! : 'SYSTEM' = CONSOLE 
DW DRTUART 
DB 0,0 
DB 0,@ 
DB po! ;2ND TUART PORT 
DW DRTUART 
DB 5@H,50H ;BOTH BYTES GET ADDR 
;OF 2ND TUART 
DW 4) ;RESERVED BY SYSTEM 
DOS SYSTEM PUNCH READER, AND LIST DRIVERS 
DB ‘py! 
DW DRCDPU ;CDOS PUNCH DRIVER 
DW 4) 
DW 4) 
DB "Rp! 
DW DRCDRD 3;CDOS READER 
DW 4) 
DW @ 
DB "LP! 
DW DRCDLP ' 3CDOS LIST DRIVER 
DW 4) 
DW G 
ND: DB g sEND OF DDLIST-NOTE: 


IF DDLIST IS 
EXTENDED, THIS NULL 
should be overwritten 
and then placed at 
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ADDR 


4A9C 
4A9E 
4AAG 
4AA2 
4AA4 
4AA6 
4AA8 
4AAA 


4AAC 
4AAD 


4AAF 
4ABO 
4AB3 
4ABF 


4AB5 
4AB7 
4AB9 
4ABB 
4ABD 
4ABF 
4AC1 
4AC3 


4AC5 


4AC7 


4B95 


me 


DEFS 


64 


end of the new DDLIST 
7;RESERVE SPACE FOR 
;MORE DRIVERS 


BEG3 


C38588 


RCDPU: 


? 
SPUPC: 


SPULPJ: 


; 
7 
DRCDRD: 


PUNCH 


DW 


SAMPLE DEVICE DRIVERS 


SDUMMY 
SDUMMY 
SDUMMY 
SDUMMY 
SPUPC 


SDUMMY 
SDUMMY 
SDUMMY 
SDUMMY 
6 
SRDGC 


;PUNCH OUT CHARACTER 


;GET CHAR TO E REG AS 
7;CDOS EXPECTS 
7;CDOS PUNCH ENTRY 


;RDR GET CHAR ROUTINE 


;CDOS READER GETC 
;ENTRY PARM 

;READY TO GO... CHAR 
;RTND IN A 
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DRCDLP: 
4ACA DF 4A DW SLPOP sOPEN ROUTINE 
AACC E64A DW SDUMMY 
4ACE E64A DW SDUMMY 
4ADG E64A DW SDUMMY 
4AD2 DA4A DW SLPPC ;AND LP PUTC ROUTINE 
4AD4 2008 DW i) 
4AD6 GOOD DW ") 
4AD8 DOGO DW g 
SLPPC: 
AADA 54 LD E,A ;MOVE CHAR TO E 
A4ADB GEBS LD c,5 ;CDOS LIST WRITE 
;ENTRY PARM 
4ADD 18D¢ JR SPULPJ 
SLPOP 
AADF 3E0C LD A,ASCFF ;ISSUE A FORM FEED ON 
sOPENING FILE 
4AE1 CDDA4A CALL S$LPPC 
4AE4 AF XOR A 
4AE5 C9 RET ;RET WITH @ STATUS 
SDUMMY: 
4AE6 AF XOR A 
4AE7 C9 RET 
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ACCESSORY I/O DRIVERS 


The DDLIST contains five drivers which may be 
accessed by the user. BASIC treats these drivers 
as files. They must therefore be OPENed and 
CLOSEd, but may not be CREATEd (because they 
already exist). Note that the first three drivers 
are not available in the Stand Alone version of 
BASIC. 


Line Printer Driver 


The system line printer can be accessed by OPENing 
a file named $LP. This driver uses the CDOS system 
call to output data to the line printer. INPUT and 
GET instructions must not be used with this file. 


Punch Driver 


The system punch may be accessed by OPENing a file 
named $PU. This driver uses the CDOS system call 
to output data to the punch. INPUT and GET 
instructions must not be used with this file. 


Reader Driver 


The system reader may be accessed by OPENing a file 
named SRD. This driver uses the CDOS system call 
to input data from the reader. PRINT and PUT 
instructions must not be used with this file. 


Console Driver 

The system console may be accessed by OPENing a 
file named S$sy. This driver bypasses CDOS and 
allows the user to input and output data from/to 
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the console directly by using port @ (UART status) 
and port 1 (UART data). 


TU-ART Driver 
There is a general purpose TU-ART serial I/O port 
driver in the DDLIST called T5. It assumes a TU- 
ART addressed at port 58H and may be used for any 
serial device provided the baud rate is initialized 
prior to its use with an OUT instruction. 
Example: 

1@ OUT %$58%,4 : REM SET TU-ART TO 3808 BAUD 

20 OPEN\2\"S$T5" : REM SETS UP DEVICE #2 FOR SERIAL 1/8 
The driver for the system console at port @ is 
labeled "$SY". To switch between the console and a 
second terminal: 

28 OPEN\1\"S$sy" 

38 OPEN\2\"ST5" 
This will allow you to later say PRINT\A\"MESSAGE", 


where A can be changed via software to be 1 for the 
console and 2 for another terminal. 
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BASIC carries 4 I/O channels in addition to the 
console, One I/O channel is needed for each file 
which is OPENed at the same time. Each I/O channel 
occupies 192 bytes of memory. 


If you wish to change the number of channels in 
use, type the following commands while in BASIC: 


Disk System Stand Alone System 

POKE%416%,X POKE%80163,X 

A=USR (%8409%,8) A=USR ($80003,0) 
where X is the number of I/0 channels desired in 
addition to the console. The POKE command puts the 
number of channels desired into the proper location 


and the USR function reinitializes BASIC. 


On a disk system, you can now save this new version 
of BASIC by returning to CDOS and typing: 


>>BYE 


A.SAVE BASIC1.COM 76 
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LOADING 16K BASIC FROM PROM 
I. Memory Requirements: 


1. 16K PROM starting at location 8000H. 
2. At least 8K RAM starting at location @. 


II. System Set Up: 


A. CROMEMCO 8K BYTESAVER II PROM board: 


1. Turn PROM program power switch 
‘OFF', 
2. Turn program enable switches 'OFF', 


3. Plug the 16 CROMEMCO 16K BASIC PROMS 
into the boards in numerical order. 


board one - 

88008 into PROM socket @ 
84098 into PROM socket l 
etc. 


board two - 

A@@@ into PROM socket @ 
A498 into PROM socket 1 
etc. 


4. Set LOGICAL ADDRESS BLOCK SELECT to 
8000H & ABBOH 


BYTESAVER II switches: 


board one - 15=1, 14=8, 13=98 
board two - 15=1, 14=9, 13=1 


B. 16KPR board: 


rs Set LOGICAL ADDRESS BLOCK SELECT to 
8000H. 


switch 15=1 
switch 14=9 
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Qs Plug the 16 CROMEMCO 16K BASIC PROMs 
into the board in numerical order. 


8888 into PROM socket @ 
8498 into PROM socket 1 
etc. 


III. All systems: 


Les Set the jump start address on the ZPU 
board to 8@@00H. 


Switch Al5=1 
Al14=9 
Al1l3=@ 
Al2=8 


2% Select bank @ on the PROM board (switch 8 
on). 


IV. Method: 


Ls Depress the return key on the console 
several times so that CROMEMCO 16K BASIC 
can determine the baud rate of your 
terminal. 


2. CROMEMCO 16K BASIC will respond with a 
prompt (>>) to indicate that it is ready 
to accept a command. 


3 Refer to the section on Getting Started 


for information on how to proceed from 
this point. 
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